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WE DON'T PLAY GAMES 




X-12* 



A SERIOUS COMPUTER 
IN A DESKTOP PACKAGE 



Multiprocessor Technology -Combination of 8, 16 and 32 bit types 
1*0 Megabyte Memory- Insures no limitation on programs 
"Winchester" Disk System - Fast response, large storage capacity 
UniFlex* Operating System -The standard of comparison 
Hardware Floating Point - Unmatched speed in a small system 
Up to Three Terminals - Instant expansion 



•Trademark of Technical Systems Consultant* 




SOUTHWEST TECHNICAL PRODUCTS CORPORATION 

219 W. RHAPSODY 

SAN ANTONIO, TEXAS 78216 (512) 344 0241 



Only Microware's OS-9 

Operating System Covers 

the Entire 68000 Spectrum 



MICROWARE'S OS-9 



UNIX 
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SYSTEMS 
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SINGLE USER 
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LARGE SYSTEMS 



Is complicated software and expensive hardware 
keeping you back from Unix? Look into OS-9 the 
operating system from Microvvare that gives 68000 systems 
a Unix-style environment with much less overhead and 
complexity, 

OS 9 i5 versatile inexpensive, and delivers outstanding 
performance on any size system. Hie OS 9 executive is 
much smaller and Jar more ei- 
ricient than Unix because it's 
written in last, compact as- 
sembly language, making it 
idea! tor critical realtime ap 
plications. OS-9 can run on 
a broad range of 8 to 32 bit 
systems based on the 6#000 
or 6S09 # family MPUs rrom 
ROM based industrial con* 
trollers up to large multiuser 
systems 

OS -9 S OUTSTANDING 

C COMPILER IS 
YOUR BRIDGE TO UNIX 

Miooware's C compiler I 
nology is another OS-9 advantage. The compiler produces 
extremely fast, compart, and ROMable code. You can easily 
develop and port system or application software back and 
torth to standard Unix systems, Cross-compiler versions for 



VAX and PDRLI make coordinated UnixvOS-9 software 

development a pleasure. 

SUPPORT FOR MODULAR SOFTWARE 
- AN OS9 EXCLUSIVE 
Compiehensive support for modular soM warn puts OS-9 

a generation ahead of other operating systems. It mul tiplies 

programmer productivity and memory erticjency, Applica- 
tion software can be built 
from individually testable 
software modules including 
standard library" modules. 
The modular structure lets 
you customize and recon- 
figure OS-9 for specific hard- 
ware easily and quickly. 

A SYSTEM WITH 

A PROVEN 
TRACK RECORD 
Once an underground 
ttassic. OS-9 is now a solid 
hit. Since 1980 OS-9 has 
been ported to over u hun- 
dred 6809 and 68000 
systems under license to some of the biggest names in the 
business. OS-9 has been imbedded in numerous consumer, 
industrial, and OEM products, and is supported by many 
independent software suppliers. 



Key OS-9 Features At A Glance 

Compact (16K) ROMable executive written in assembly 

language 

User "shell" and complete utility set written in C 

C-source code level compatibility with Unix 

Full Multitasking/multiiuser capabilities 

Modular design - extremely easy to adapt, modify, or 

expand 

Unix-type tree structured file system 

Rugged "crash-proof file structure with record locking 

Works well with floppy disk or ROM-based systems 

Uses hardware or software memory management 

High performance C, Pascal, Basic and Cobol compilers 



OS-9 



MICROVVARE SYSTEMS CORPORATION 
1866 NW 114th Street 
Drs Moines, Iowa 50322 
Phoru* 515-2241929 
Telex 910-520-2535 



Micro wart* japan. Lid 
3-8-9 Baraki Ichikawa City 
Chiba 272-01, Japan 
Phone 0473(28)4493 
Telex 299.3122 
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Send All Correspondence To: 

Computer Publishing Center 
66 MK*0 JOURNAL 

5900 Cassandra Smith 

PO Box 849 

Hlxson, TN 37345 

Ph (615)842-4600 TELEX 558 414 PVT BTh! 

Copyrighted 19B4 by 

Computer Publishing inc. ICPI) 

68' Micro Journal is published 12 times a year by 

Computer Publishing Inc. Second Class Postage 

Paid ISSN 0194-5025 at Hlxson, Tenn. and 

additional entries. Postmaster: send Form 3579 to 

68 1 Micro Journal , PO Box 849, Hixson. Tennessee. 

SUBSCRIPTION RATES 

USA 

1-Year J24.50 2-Years $42.50 3- Years J64.50 
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See Page 60 
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Articles submitted for publication should be 
accompanied by the authors full nam», address, date and 
telephone number. It is preferred that articles be 
submitted on either 5 or 8 inch diskette In TSC Editor 
format or STyLO format. All diskettes will ba returned. 

The fo M owing TSC Text Processor commands ONLY shoufd 
be used (due to our proportional processor): .sp space, 
.pp paragraph, a fl fill and .nf no fill. Also please do 
not format within the text with muftlple spaces. The 
rest we will enter at time ot editing. 

STYLO commands are alt acceptable except the p pg page 
command, we print edited text files In contlnous text. 

All articles submitted on diskettes should be in TSC 
FLEX* format, either FLEX2 6800, or FLEX9 6809 any ver- 
sion. 

If articles are submitted on paper they should be on 
white 8X)1 bond or better grade paper. No hand written 
articles (hand written or drawn art accepted). All 
paper submitted articles will be photo reproduced. 
This requires that they be typed or produced with a 
dark ribbon (no blue), single spaced and type font no 
smaller than 'elite* or 12 pitch. Typed text should be 
approximately 7 inches wide (will be reduced to column 
width of 3 1/2 Inches). Please use a dark ribbon! 

All letters to the editor should also comply with the 
above and bear a signature. Letters of 'gripes 1 as well 
as 'praise' are solicited. We attempt to publish all 
letters to the editor verbatim, howover, we reserve the 
right to reject any submission for lack of 'good taste'. 
We reserve the right to define what const I tutes 'good 
taste 1 . 

Advertising: Commercial advertisers please contact the 
68 Micro Journal advertising department for current 
rate sheet and requirements* 

Classified: All classified must be non-commercial. 
Maximum 20 words per classified ad* Those consisting of 
more than 20 words should be figured at .35 cents per 
word. 20 words or less S7.5C minimum, one time, paid En 
advance* Ho classified ads accepted by telephone. 
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GIMIX HAS THE 6809 SYSTEM TO SUIT YOUR NEEDS 



HARDWARE 

All systems feature the GIMIX CLASSY CHASSIS; with a ferro-resonant constant 
voltage power supply, gold plated bus connectors, and plenty of capacity for future 
expansion. 

Static RAM and double-density DMA floppy disk controllers are used exclusively in all 
systems. 

All systems are guaranteed for 2 MHz operation and include complete hardware and 
software documentation, necessary cables, filler plates, etc. 

Systems are assembled using burned-in and tested boards, and all disk drives are 
tested and aligned by GIMIX. 

You can add additional components to any system when ordering, or expand it in the 
future by adding RAM, I/O, etc. 

GIMIX lets you choose from a wide variety of options to customize your system to your 
needs. 



SOFTWARE 

All 0S-9/FLEX systems allow you to software select either operating system. 

Also included is the GMXBUG monitor and, in systems with 128K or more of RAM, 
GMX-VDiSK for FLEX. 

All GIMIX OS-9 systems include Mlcroware's Editor, Assembler, Debugger, BaslcQ9 r 
and Runfa; and the GMX versions of RMS and DO for OS-9. 

All GIMIX versions of OS-9 can read and write RS color computer format OS-9 disks, 
as well as the Microware/GIMIX standard ftmnal 

New and exclusive with OS-9 GMX III systems is the GMX OS-9 Support ROM, a 
monitor for OS-9 that includes memory diagnostics and allows the system to boot directly 
from either hard disk or floppy. 

A wide variety of languages and other software is available for use with either OS-9 or 
FLEX. 



OS-9 GMX HI/FLEX SYSTEMS (#79) 

The 179 super system now includes (in addition to the above): the GMX 
6609 CPU 111, a 256K CMOS Strfc RAM Board (172), and a 3-port In- 
tsttgint Social I/O Processor (ill) 

The 6MX 6809 CPU III can perform high-speed DMA transfers from 
memory to memory and uses memory attributes and illegal instruction trap- 
ping to protect the system and users fiom program costes. II a user pro 
gram crashes, only that user Is affected; other users are unaware of the 
problem. 

Hie 3-Port l nteaigent Serial 1/0 Board (#1 1 Jstorilicantly reduces system 
ovemeaO by handling routine 1/0 functions: freeing the host CPU lor run- 
ning user programs. This improves overall system performance and allows 
user terminals to be iun at up to 19.2K baud. 

with duaUO track DSDDdrives $5998.79 

with dual 80 track OSDD drives $6198.79 

with #88 dual 8" DSDOdnve system $7698.79 

with #90 19MB Winchester subsystem and one 80 track $8898.79 

with a 47MB Winchester subsystem and one 80 track $10,898.79 
with a 47MB plus a 6MB removable pack Winchester 

subsystem and one 80 track drive $12,398.79 



TO ORDER BY MA& SEND CHECK OR MONEY ORDER OR JS6 YOUR VISA OR 
MASTER CHARGE, Rease allow 3 weeks tar personal ctocxs to cteai U.S. orders add 
$5 hanging « Kg* is undet $200 00 Foreign orders add $10 tending It order rs 
Uftde* $200 00 Foreign orders over $200 CO wll be shipped via Emery Air Freight 
COLLECT, and we wfl cftaioje no handling AN orders must be prepaid in U.S. funds. 
Rsase note that foreign ctocte r«ve oeen taking about 8 weeks for coflecfion so we 
would advise wiring ntroy* or ctecks drawn on a bank account In theU.S Our Dank 
« eta Continental Kiwis Nafaia) Bank ol Chicago. 231 S LaSaBe Street, CNcago, IL 
eoe33. account ^73 32033 

BASiC-09 and OS-9 are (radenwtas ol Mfcrvware Systems C«p and MOTOROLA. Inc 
FLEX and UnifLEX are trafenarts of Technical Systems Consultants, inc 
GIMIX. GHOST. GMX. CLASSY CHASSIS, are trademarks of GIMIX, Inc 



OS-9 GMX I / FLEX SYSTEMS #49 

Trie #49 systems include 64KB static HAM. #05 CPU. #43 2 port serial 
board. 

with dual 40 track DSDO drives , $3998.49 

with dual 80 track OSDOdiives $4198.49 

with#88 dual 8" DSOD drivesystem $5698.49 

with #90 1 9MB Winchester subsystem and one 80 track $6898,49 

OS-9 GMX II / FLEX SYSTEMS #39 

The f 39 systems include 128KB static RAM, #05 CPU, #43 2 port serial 
board. 

with dual 40 track DSDO drives $4498,39 

wit* dua)80 track DSDDdrives $4698.39 

with #88 dual8" DSDO drrve system , $6198.39 

with §90 19MB Winchester subsystem and one 80 track $7398.39 

GIMIX DOES NOT GUARANTEE PERFORMANCE OF ANY GIMIX SYSTEMS, 
BOARDS OR SOFTWARE WHEN USED WITH OTHER MANUFACTURERS 
PRODUCT. 

EXPORT MODELS: ADO $30 FOR $QH 2 . POWER SUPPLIES, 

GIMIX, Inc. reserves the right to change pricing, terms, and products 
specifications at any time wrmout further notice. 

ALL PRICES ARE FOB. CHICAGO 

Contact GIMIX tor price and availability of UniFLEX and UnlFLEX GMXIII 
Systems. 

NOTE on all drive systems: Dual 40 track drives have about 70GKB of for- 
matted capacity: dual 80s about t. 400KB; dual 8" about 2 Q0OK8 The 
lormatied capacity of hard disks Is about 80% of the totaJ capacity. 



Want to expand your system to a 
megabyte of Static RAM and 15 users? 

Simply add additional merrtoiy and I/O boards, Your GIMIX system can 
grow with your needs. Contact us for a complele list of available boards and 
options 

#72 256KB CMOS STATIC RAM board 

with batteiy back up ; $1898.72 

164 64KB CMOS STATIC RAM board 

with batteryback up $528.64 

#67 64KB STATIC R*M board _ . $478.67 

#1 1 3 port intelligent seiial t/O board $498.11 

#43 2 port serial I/O board $128.43 

#42 2portparalieh/Oboa/d $88.42 

#95cabJe sets (1 needed per port), specify board $24.95 



NOW 


SHIPPING ! 




UniFLEX 


GMX III Systems 



Eimix 

1337 WEST 37th PLACE 
CHICAGO, ILLINOIS 60609 
(312)927-5510 • 




TWX 910*221*4055 

#1984 GltflX. 1NC 



Get 

the 
most 

out 

of 

BASI 



The OFFICIAL BASIC09 TOUR 
GUIDE is skillfully written in a friend- 
ly and easy-to-read style. Just 
perfect for those new to computers 
arid to BASIC09, It's also a valuable 
reference book for programmers, 
engineers, students and hobbyists, 
providing an in-depth look at 
BASIC09 plus an overview of the 
OS-9 operating system. Compre- 
hensive reference sections on 
BASIC09 and OS-9 commands are 
also included. 

The book "maps" out your route 
through the Mercedes of Basics . . . 
BASIC09 and puts you in the driv- 
er's seat in no time. Fasten your 
seatbelt, sit back and enjoy the ride 
to perfecting your programming 
skills. 




MICROWARE . . . 

The OFFICIAL BASIC09 TOUR 
GUIOE comes from the people who 
wrote BASIC09. As the leader in 
6809 system software, we at 
MICROWARE care about our users 
and want to help you get the most 
from our products. 

It's Easy to Order. 

Phone orders are accepted from 
MasterCard or VISA cardholders or 
for COD shipment. You can also 
order by mail using the coupon 
below. Quantity discounts are 
available to educational organiza- 
tions and dealers. For further infor- 
mation contact Microware. 



Specialists in system software for 68-family microprocessors since 1977. 
OS-9 and BASIC09 are trademarks of Mjcroware and Motorola. 



Microware Systems Corporation 
fS66 NW 114tn Street 
Oes Moines, Jowa 50322 
Telephone Si 5/224-1929 
Telex 910-520-2535 



_ copies of the 



Please send 

B8t]c09 Tour Guide book at $18,95 
each. Add $2,00 for UPS shipping in 
the U.S. or $5.00 for overseas air mail 
per book. Iowa residents add 4% 
saies tax. 

Name . 



Address 
City 



State 



JBP- 



D I have enclosed a check 
Q Charge to my bank card: 

MasterCard D VISA D 

Card Number 

Expi ration 
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Give Your OS-9 System The Power It Deserves! 
Total Management Planning Software presents 

The IfWffJFi POWER SERIES 



The TMP FREEFORM/FILER 

The Premier text/Filing Program! 

A unique text/filer program that bridges the 

gap between traditional data base management 

and word processing programs! 

UNIQUE CAPABILITIES: 

*> THE OBJECflVE: Designed for busy and creative individuals 
who want the FREEDOM to randomly store information, but need 
the POWER to retrieve that information in seconds. 
** THE KEYWORD SYSTEM: As you enter or edit your text, you 
can select any word as a "KEYWORD" or "KEYPHRASE." Each 
"CARD" can contain as many as 117 KEYWORDS, and up to nine 
pages of textsimilarto a 3" x 5" card, with no field restrictions Each 
"FILE DRAWER" can contain up to 32,767 pages? 
»' THE EDIT: Includes an onscreen editing menu, word wrap, mov- 
ing lines within a page, and card duplication. 
>* THE SEARCH: Search for the Card Title, KEYWORD, or a com- 
bination of both. Plus. "WILD CARD SEARCHES'* save time! 

* THE RESULTS: List the titles of cards found in the search, print 
the cards, or write them to a disk file for later printing or use with 
a word processor. 

GIVE YOU MORE ABILITIES: 

* BUSINESS: Appointments, office phone and address in- 
dexes, inventory, service calls, vendor lists, and sales orders. 
+ ATTORNEYS: Find the cases affected by new court 
decisions. 

* DOCTORS: List all patients affected by new 
medications, 

+ WRITERS AND RESEARCHERS: Fbr indexing, eras- 
referencing or cataloging. 

* PERSONAL: The possibilities are endless ... art and 
coin collections, bill paying, income tax records, and home 
inventory, 

NOTE: The FREEFORM FILER integrates data into the 

* POWER MANAGER" 

W MICRO JOURNAL Said: 

"TMP FREEFORM FILER is a flexible Program that can be used 

for a multitude of tasks without requiring a Computer Science 

backgiound . . . The Manual is well laid out and easy to read and use 

. . . All in all, TMP FREEFORM FILER is a very useful Program." 

Requires 64 K. (Regular Retail Price: $225 J 

Special Introductory Price: $195. 



NEW RELEASE: 

The TMP QFIND program is now included with the TMP 

FREEFORM FILER at no additional charge! TMP QFIND is the 

quick and easy way to call up information entered in card drawers and 

is great for addrvjtsea, phone numbers, "help" systems, contact lists, etc! 



The TMP FRONT-END 

. . . Gives Your OS-9 System An Added Edge 
in Ease of Use! 

* The TMP FRONTEND allows the user to call TMP programs, 
application programs, editors, shell scripts, OS-9 commands and other 
programs from a menu system. 

* The FRONT END is a POWERFUL MENU PROGRAM that 
allows up to seven menu screens, each having up to 36 menu options! 

* The FRONTEND can be entered at any level and can be called 
from non-TMP programs. It allows the user to run the OS-9 shell directly 
without exiting the menu system. 

* The FRONTEND comes with sample menu scripts and instruc- 
tions that make operation a snap even for fiisl time OS 9 users. 

Requires WK t $60. 



SPECIAL PACKAGE OFFER; 
Each of these programs if purchased sepa/VU^y would east 
9880. 1 n this special introductory offer, all four programs can 
be purchased for 8880, a savings of more than 20 percent! 



The TMP POWER PLANNER 

. . . is the Leader of a New Generation In Spreadsheets! 

« . . is Unequalled in Speed and Power! 
POWER PLANNER Features: 

+ The unique "POWER UPDATE" which uses "circular ivferen* 
cing" a new concept that makes POWER PLANNER far superior 
to Other Spreadsheets 

+ The POWER PLANNER also includes the traditional tv* and 
column ordered calculations found in Other Spreadsheets But circular 
referencing is much faster because it recalculates only related cells! 

* DATA ENTRY FREEDOM: POWER PLANNER eliminates 
worrying over the order of calculation! Data and formulas can be 
entered in an,y order, and you get correct results no matter where 
your information is placed! 

«r With POWER UPDATE you always get the correct answer, unlike 
Other Spreadsheets that force you to keep recalculating until you get 
the right answer. 

* SPEED: For handling large spreadsheets, the POWER PLAN 
NER is the faMettt, We invite comparisons! 

* "POWER OVERLAY" lets you easily create Specialised Reports 
with "Boiler Plate" screens. This means you can overlay any number 
of screens from disks containing formulas, constants, or formate and 
automatically update one spreadsheet with another! 

* EASE OF USE: Fewer Keystrokes, Help screens, and "Snap Shot" 
printing 

* A worksheet that will display up to 254 rows by 25$ columns. 
+ Full 13-dlgH precisian, includes all the standard arithmetic and 
trig functions, such as sum. average, maximum, sine, pi, etc. 

For Speed and Power for Management Decisions in 
Budgeting. Cash Flow Comparison* Expense Statements 
Sales Forecasts, Profit/Loss Projections, lax. Loan and 
Financial Analysis, and all kinds of 4 * What If* Calcula- 
tions, there is no other spreadsheet that is equal to 
the POWER PLANNER! 

Requires 64 K, 8250.00 



The TMP POWER MANAGER 

. . . Best In Its Class! 
POWERFUL CAPABILITIES: 

►- More characters per record (7500) than any other 

program in its class! 

** Each database can contain 32,767 records. 

>' Each record can contain up to 150 fields of data, 

•> Each field can contain up to 50 characters. 

»' Fields can be alpha, numeric, date, or monetary. 

** Riwurftil Sort and Report Generation capabilities. 

* SORTING on any field or on a combination of fields. 

Plus, extra power from the "OR SORT" and descending 

sort features. 

*> Intricate math CALCULATING between fields based 

on formulas you devise. 

*. The POWER MANAGER comes with an extensive 

'[Niton 
GIVE YOU MORE ABILITIES: 

+ POWER MANAGER can create CUSTOMIZED LETTERS, Ifr 
VOICES, columnar reports, or label formats for mailing^ 
* Use the Report Generator feature in conjunction with a text 
editor or word processor to write personal letters to those individuals 
who meet the geographic, date or monetary criteria you select* 

* Our Users put POWER MANAGER to work for them to do: . . 
. customer mailings . . . past due notices . . . invoicing . . . sales analysts 
. . . order tracking . . . inventories . . . credit, insurance and employee 
records, client profile reports, and much more. 

* THE POWERFUL BOTTOM LINE: We take the competition 
head on, and dollar for dollar . . . The POWER MANAGER is by far 
the best in its class! 

Requires 128K, $386.00 



ORDERING INFORMATION: TMP SOFTWARE • 2431 E. Douglas • Wichita, Kansas • 67211 
► OR CALL TOLL-FREE: 1-800-255-1382 Ext.47 
We accept VISA, MC, AM EX, money orders and checks. 

NOTE Thv purvnt company of TMP Soli war*. The United Softwvrv Ca, is nou the distributor u»d support organization for TMP Software. 
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SOFTWARE DEVELOPERS! 

YOU VE JUST BEEN GIVEN THE BEST REASON YET 
TO GET OUR 68000/UNIX® DEVELOPMENT SYSTEM 



THE VAR/68K® SERIES 




VK-5XW20 (List price Sl&JfKT.) $5,000. 

Includes: Terminal, 20 Mb hard disk. 
512K RAM. 8 ports and RKGULUS® 



VK-5XW20T20 (Lisl price £±2£tfa.) $6,500. 
Includes: all ol above, plus 20 Mb 
tape streamer 



RESELLERS! 



Even more attractive specials are available to qualified resellers! 

Smoke Signal has been designing, developing and manufacturing 
microcomputers based on the Motorola family of processors for 
the past six years. The VAK/68K Is the most recent addition to our 
family of multi-user computers. 



VAK/6BK is a registered trademark of Smoke Signal 
REGULUS Is a registered trademark of Alryon Corp. 
UNIX is a registered trademark of itell Laboia lories 



Due to the extremely low prices being 
offered, we can only accept cash orC.O.D. 
orders, and we must limit purchases to 
one per customer. This is a limited time 
offer 



TO OBTAIN YOUR VAR/68K 
AT THESE LOW PRICES. CONTACT: 

|H SMOKE SIGNAL 

31336 VIA COLIN AS 

WEST1J\KE VILLAGE, CA 91362 

(818) 889 9340 / Telex 91 0-494 4965 
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FLEX ™ USER NOTES 

THE 6800-6809 BOOK 

By: Ronald W. Anderson 

As published in 68 MICRO JOURNAL'" 




%&# 



The publishers of 68 MICRO JOURNAL are proud to announce the publication of Ron Andersons FLEX USER NOTES, in 
book form. This popular monthly column has been a regular feature in 68 MICRO JOURNAL SINCE 1 979, It has earned the 
respect of thousands of 68 MICRO JOURNAL readers over the years. In fact. Rons column has been described as the 
Bible' for 68XX users, by some of the world's leading microprocessor professionals. Now all his columns are being 
published, in whole, as the most needed and popular 68XX book available. Over the years Rons column has been one of 
the most popular in 68 MICRO JOURNAL. And of course 68 MICRO JOURNAL is the most popular 68XX magazine 
published. 

As a SPECIAL BONUS all the source listing in the book will be available on disk for the low price of: FLEX '* format only — 5* 
$1 2.95 — 8" $1 6.95 plus $2,50 shipping and handling, if ordered with the book. If ordered separately the price of the disks 
will be: 5" $17,95 — 8" $19.95 plus $2.50 shipping and handling 

Listed below are a few of the TEXT files included in the book and on diskette. 

All TEXT files in the book are on the disks. 



LOGO.C1 

MEMOVE.C1 

DUMP.C1 

SUBTEST.C1 

TERMEMC2 

M.C2 

PRINT.C3 

MODEM.C2 

SCIPKG.C1 

U.C4 

PRINT.C4 

SET.C5 

SETBAS1.C5 



File load program to offset memory — ASM PIC 
Memory move program — ASM PIC 
Printer dump program — uses LOGO — ASM PIC 
Simulation of 6800 code to 6809, show differences — ASM 
Modem input to disk (or other port input to disk) — ASM 
Output a file to modem (or another port) — ASM 
Parallel (enhanced) printer driver — ASM 
TTL output to CRT and modem (or other port) — ASM 
Scientific math routines — PASCAL 
Mini-monitor, disk resident, many useful functions — ASM 
Parallel printer driver, without PFLAG — ASM 
Set printer modes — ASM 
Set printer modes — A-BASIC 
(And many more) 



■'Over 30 TEXT files included in ASM (assembler) — PASCAL — PIC (position independent code) TSC BASIC-C, etc. 

NOTE: C1,.C2, etc. = Chapter 1, Chapter 2, etc. 

This will be a limited run and we cannot guarantee that supplies will last long. Order now for early delivery. 

Foreign Orders Add $4.50 S/H 
Softcover — Large Format 
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Book only: $7.95 + $2.50 S/H 

With disk: 5" $20.90 + $2.50 S/H 

With disk: 8" $22.90 + $2.50 S/H 

See your local S50 dealer/bookstore or order direct from: 

Computer Publishing Inc. 

5900 Cassandra Smith Rd. 

Hixson, TN 37343 

(615)842-4601 

'FLEX is a trademark of Technical Systems Consultants 
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I could say something here about the software 
documentation being disorganized. Try finding out how 
to use the matching language routines mentioned In the 
manual In connection with reading and writing to a tape 
cassette, for Instance. It seemed to me at the time I 
was looking of that, that Radio Shock Included or left 
out Information more or less by chance rather than by 
careful consideration. 



Once Wore 

I have from time to time In this column made a plea 
that I wish you out there would heed. I don't mean to be 
harpy or negative In saying this, but It Is time for a 
repeat. This column Is nrf donation to the 68XX users. 
It is done without compensation other than to be able to 
keep the software that 1 review. I enjoy It greatly, 
though at one time \ had considered stopping In order 
to devote more time to writing freelance for pay. On 
long consideration, I decided that If I were to get paid 
for a regular column, It would cease to be any fun, and 
would turn Into hard work. On that basis, I continue 
(haven't mfssed a month In 5 years now). 

Since this Is a donated effort, you must realize that 
I work a fuM time job In addition to this. The column 
does not really take all that much of my time to write <as 
some of you realize by my sometimes ^ery disorganized 
writing). Mow to the point. I would REALLY appreciate 
It If readers would not take advantage of the fact that 
my phone number Is listed by calling me for help, advice, 
or answers to questions. As f heve said before, /our 
call forces me to give you my attention at YOUR 
convenience. If you want advice or help with something 
and you think I might be able to give you a hand, PLEASC 
take the Mme to write a letter. I need to add a plea to 
see that your address Is somewhere on the LETTER, not 
just on the envelope. Envelopes tend to get lost or 
thrown away, and a eoupfe of times when I was getting at 
answering a letter, I have found that I had no address 
to which to send the reply. (I hasten to add here that I 
don't hove all the answers, and that some letters do, now 
and then, fall In a crack somewhere and do not get 
answered.) The advantage to you Is that I can spend 
more time thinking about my reply. Perhaps I will see 
something of interest for ail the readers and spend soma 
time writing some code for you, that we can all share. 
The advantage to me Is that I can answer your letter at 
MY convenience some night at midnight or I AM, when most 
of you wouldn't dare call mo. 

If you do call, be prepared for a very cool answer. A 
few weeks ago, I had a particularly trying week at work, 
and I had spent about 5 hours on the phone with various 
computer related conversations, all In the evening. When 
one poor unsuspecting reader called me on Saturday as I 
was on my way out the door on an errand, I was abrupt 
and Just plain rude. The reader, of course had no way 
of knowing the circumstances, but he was kind enough to 
send me a letter outlining what he wanted to discuss on 
the phone. His response was not unkind In any way, and 
I am going to discuss his thoughts here* I'm sorry Kent 
for the way I answered the phone that Saturday. I 
apologize publicly. 

COCO Again 

The letter was from Kent Meyers of Le Roy W. It was 
In response to my discussion of the COCO In the November 
'84 Micro Journal. I had agreed with a reader's letter 
about Radio Shack providing poor documentation. Kent 
reminded me of the very nice service manuals available 
from Radio Shack for the computer and the old disk 
Interface and pointed out that perhaps the reader who 
wrote to complain about lack of documentation on the new 
Improved disk Interface had bought the Interface too 
soon and that the documentation simply was not yet 
published. Kent, you could be correct on that, and In 
fact probably are- I appreciate being reminded that the 
hardware documentation Is available. 



Kent goes on to say that I was *V>ff the mark on the 
question of using an 80 column terminal on the COCO. 
The problem of missed characters only sliows up In the 
screen editors. . • •"• Kent Indicates that he uses a Una 
editor with the COCO. My goodness! I thought people 
quit using line editors 5 years ago* I certainly haven't 
used one to any extent for at least that time. Kent Is 
saying that I have to use an external terminal on the 
CoCo to get more than 51 characters on a line, and then 
I have to use a line editor? Forget It. IVn too spoiled 
by my SS-50 system! (Kent, there Is the problem with the 
CoCo and I. If you don't have a mjre capable system the 
CoCo Is great for learning about computing and 
computers*) 

Kent says that the Tano Oregon corrected all the 
faults of the CoCo. It used a built In 6551 ACIA "that 
completely cures the missed character syndrome". "Those 
who got the Oregon at the close-out price of Si 39 were 
very lucky." Greet! We have a computer that solves the 
CoCo's problems but tha manufacturer Is not supplying It 
anymore. 

"In the first paragraph about 0S9, you use "multi- 
tasking" In reference to the use of an external 
terminal. This Is more properly termed ^riuftl-user", 
When I first got my copy of 0S9, the first thing that I 
attempted was using the external terminal. Wnen I 
discovered that It would not run reliably above 300 baud, 
I put 0S9 on the shelf for a while* .. Now t*\at I have the 
Oregon, tltough, I heve begun to get Into 0S9. - . at 9600 
baud with no missed characters." 

I get the feeling that Kent Is agreeing with my 
conclusions but not my terml nology here. If I put an 
external terminal on the CoCo so I can be the single 
user, Itow can you call that "mult I -user"? I know what you 
are saying Kent, but the fact that 0S9 won't let me 
switch to a single user mode Is part of the problem. 0S9 
Insists on running Its CLOCK task and I can't shut off 
the "console" task that keeps the COCO keyboard live. 1 
did find that I could reduce Its allotted time slice to 
minimum for that task and run pretty reliably at 600 baud 
with an external terminal. The fact that the Oregon 
works so well Is great for anyone who owns one, but sort 
of Irrelevant to you COCO owners who don't have a 
Dragon. 

You may recall that I did conclude the discussion by 
saying that tha COCO Is NOT a useless toy as some say It 
Is. It Is en excellent and Inexpensive way to learn 
something about computing and computers. I said that 
you could try computing on for a fit, and If you didn't 
like It you wouldn't be out a large wad of money. Kent 
points out an additional nice feature of owning a C0C0« 
With reference to that, Kent said "If he shops wisely, 
when he gets rid of his COCO all of his peripherals (disk 
drives, printer, etc.) can be transported and used on 
his new system. The only Color Computer specific 
components would be the computer Itself and the disk 
controller." 

Kent concluded his letter by saying that he wouldn't 
bother me by phone again. I replied "now If I could only 
get several hundred other people to understand....* 1 

Used Equipment 

I recently found a used Centronics 737 printer for a 
reasonable price. It has a proportionally spaced type 
font and It Is one of the printers for which STYLO Is 
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configurable* It does an excellent Job with text via 
STYLOt Only problem with the 737 Is that for some 
unknown reason, Centronics didn't bother to build ft so 
It would recognize a formfeed character and feed to the 
top of the next page. Good Grief, a printer that does 
beautiful proportional spacing of text and won't page! 
Printer Driver to the rescue! 1 spent the evening 
writing a printer driver that counts linefeeds and feeds 
to the top of the next page when a $0C (formfeed) 
command Is sent to It. That Is, If the driver Is on line 
50 and It sees a formfeed, It outputs 16 linefeed 
characters to feed the paper to the top of the page. 
The printer driver Initializes with a line count of zero. 
If you power up with the paper properly aligned, you 
ne^er could guess that the printer doesn't honor 
formfeeds. While I was at It, I threw In the left margin 
feature that I had done In a printer driver before, and 
wrote a PAGE command for the printer so you can always 
feed a page to tear off a listing that Is In the printer. 
On the basis that two or three of you might want this 
utility, I'll send hard copy to anyone who writes and 
asks, or copy the source to a disk you send me, with 
return postage. 1 heve a version of FLEX that has a 
bole at SCB00 so I put the driver overflow there. I still 
use the "old" two file method for printing* The P.CW 
file loads the PRINT. SrS file* I know, some of you laugh 
at this, but It nicely separates the things that are 
common to all print drivers out Into the P.CMD so that my 
"Individual* print drivers can be short and simple- I see 
no reason to change the system but you can add the 
functions of P.CMD to my PRINT. SYS file If you like. 

I now hove print drivers for IDS Paper Tiger, Heath H- 
I4(ser!a1), Epson KX-60 (or 100), RX-80 (not the same as 
MX-80), Centronics 737 and a couple other printers that 
hove come and gone here and at work. 

Still tn the line of used equipment, 1 got a friend and 
a used SS-50 bus computer together recently- The 
friend didn't want to spend the price of a terminal In 
addition to the computer, so he found a used GIMIX Video 
board. 1 volunteered to get It working with a monitor 
and a serial output keyboard that was available. 

It soon became apparent that I would have to 
Interface the video board at the monitor level (I.e. 
modify SBUG-E to Jump to the appropriate routines for 
outputtlng a character to the terminal, Inputting a 
character with echo, and for Initializing the board on 
power up. I succeeded reasonably well In these goals. 
First, the board needs 2K of memory somewhere. 1 had 
added enough decodl ng to the old mother board so I could 
put the video RAM at SE600 to 1EFFF. The control ports 
conveniently fit on the four address per port system at 
$E020« They would fit on a 16 p^r port system at $E200« 
1 decided to experiment with drivers written In PL9 and 
first simply wrote a test program to Input characters 
from the terminal and echo them to the video board. The 
board Is not the ultimate In convenience like some of the 
newer boards thet look Just like a terminal. It has a 
cursor row register, a cursor column register, a 'last 
row" register and a general control register. You must 
program the character set to be used (though one Is In 
ROM so you don't have to design a type font). 

I found It straightforward to write a fairly large 
PUTCHAR procedure that handles the common case of 
outputtlng a printable character In an express mode and 
takes more time as required to look at control 
characters and handle them properly. The cursor 
position bears no relation to where on the screen the 
next character will appear. That Is only a function of 
which memory location you write Into. Keeping the two In 
sync at end of lines, when wrapping around from end to 
start, and controlling scrolling via the last line 
register were a little challenge, though the greatest 
challenge was to make the routine character handling as 
fast as possible. When I was done, the test was to fill 
the screen with characters while In a screen editor and 
then move the window by one screen. The screen was 



rewritten In Just about 1 second, so I figure the 
effective character handling to be near 19,200 baud, up 
there with the fastest of serial terminals. The drivers 
have software to Interpret commands to place the cursor 
anywhere on the screen, clear the screen, backspace, 
and erase from cursor to the end of the current line. I 
made the commands tlie same as one of my terminals so I 
can help the friend configure his software to work 
properly with It. 

STAR-00S 

I understand that a review of STAR-DOS Is underway, 
which may or may not appear before this column, so this 
Is NOT a review. However, I must give you my Impressions 
of STAR-DOS. About a month ago a package arrived In 
the mall containing a disk on which was a version of 
STAR-DOS that would run on one of my computers. Peter 
Stark had sent It to me for comments and/or the finding 
of any remaining Incompatibilities with FLEX. For those 
of you who have not been following the ads, I had better 
back up a little, STAR-00S Is Peter Stark's answer to 
FLEX, it was writ-ten from scratch, but done in such a 
way that nearly all software that was written to run 
under FLEX will run under STAR-DOS. In case you hadn't 
guessed, STAR KITS and *eter Stark are synonymous. 

I unpacked the disk and booted STAR-DOS to find a 
strange prompt In place of the familiar +44- that I have 
been looking at for so long. STAR-DOS: was the prompt 
that I saw. Any of you who have followed my column and my 
reviews for any length of time know my luck" at finding 
bugs In software the first time 1 try to run It. STAR- 
DOS was no exception In the broad sense* •• What I men 
Is that there were still some differences between what 
STAR-DOS does and what FLEX does. For exe*%>)e, the 
first thing that struck me was that I couldn't specify a 
filename as I have always done with FLEX as 
FILENAME. EXT. 1. STAR-DOS Insisted on the other form 
acceptable to FLEX, namely 1 .FILENAME. EXT. Peter 
happened to call me and ask If I had gotten the package 
and when 1 mentioned this to him he said something like 
"I've always done It the other way. I didn't know FLEX 
accepted the drive number last. 11 When I assured him 
that the flex manuals have documented both forms of file 
specifications ever since the first Mlnlflex manual I 
have, he indicated that he would fix STAR-DOS to accept 
either form, and he has done that. 

I had a couple other difficulties not worth mentioning 
since they too heve been fixed. When I complained about 
the STAR-DOS: prompt and Indicated that I wished It 
possible to change It to *** Peter wrote a TR0MPT" 
utility that lets you change it to whatever you like. IVe 
been Impressed at Peter's willingness to track down and 
"adjust" any little difference between STAR-DOS and FLEX 
with regard to how they handled various situations. I 
use the word "adjust" because "fix" might Imply a 
problem, and the little things I found were not problems. 
Just differences between the way the two operating 
systems handle certain situations. 

STAR-DOS comes complete with an assortment of disk 
utilities and a user manual. There Is an "Installation" 
manual available at extra cost for those users who want 
to Install STAR-DOS on different 6809 hardware, I.e. 
with different 1/0 port addresses or driver 
requirements. That manual Is a very well written step by 
step procedure for getting STAR-DOS up and running on 
any 6809 hardware, and with any disk controller. Of 
course, a project as IrfvoTved as writing new disk drivers 
Is not for the computer beginner, but someone with some 
experience programming In Assembler would have no 
trouble getting the Job done. 

Peter has Implemented one cute feature that he (and 
I> have found to be valuable. If you have a calendar clock 
board In your computer and can write an assembler 
program to read hours and minutes and convert them to 
one byte that codes hours and tenths on a 24 hour basis 
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(eg. 10:30 PM would bo 225, 22 for the hour and 5 for the 
• 5 hour) you con link thot code to STAR-OOS so that 
whenever you write a file to the disk It will have not only 
the normal date Information, but the time as well (to 
within 6 minutes). A utility that takes advantage of 
this Is supplied with STAR-DOS. It Is called TCAr. TCAT 
1 s a catalog utlll f y that lists the files on the disk In 
reverse order of date end tl<*e. The result Is that the 
last file you worked on Is listed at the top of the 
catalog? If you ere like me, end hit the sack at 2; 30 AM 
after working on computing projects, the next night you 
say 'let's see, what was 1 working on test?" You type 
TCAT and there It Is before your eyes. Nice--. 

Though at this point 1 am quite sure there are not 
very many Incompatibilities left, there may still be a few. 
What Is Impressive to the point of outweighing the 
possibility of a few Incompatibilities, Is Peter's 
eagerness to "adjust" these. There Is one "problem" 
that remains that could be a deterrent to your being 
Interested In STAR-DOS Just yet. It does not support 
random flies at this point. The next /erslon will have 
that feature added. If you run software that uses 
random files, you might want to hold off on STAR-DOS for 
a while. 

I should mention that Peter has several versions of 
STAR-OOS designed to run with various disk controller 
configurations. One In particular Is very nicely 
compatible with the Peripheral Technology PT-69. When 1 
mentioned that I had a PT-69 running, Peter sent me 
that version to try out, and It works quite nicely. 

Now to get Into trouble with TSC... Though the good 
folks at Technical Systems Consultants who wrote FLEX a 
few years back have staunchly maintained that they 
Intend to "support" FLEX for the foreseeable future, It 
seems to me that they have done little more than elevate 
the price for FLEX to new heights. I can think of only 
one new software product from them that runs under 
FLEX that has been released In the past two years. 
That Is their Relocatable Macro Assembler. It was 
released In Unlflex version a couple of years before the 
FLEX version finally became available, let's face It. TSC 
has gone on to bigger and better things, and more power 
to them In their new endeavors. May they ell get rich 
and famous. Had It not been for FLEX, the 6809 would be 
known only to Industrial users running Motorola 
development systems writing programs for control 
applications. 

The facts of the present ere, however, that TSC has 
all but abandoned the FLEX market. Virtually all of the 
new software products to run under FLEX are from new 
and/or small software companies. To be a little realistic 
about things, as long as they can sell a copy of FLEX for 
$250 without wen advertising It, they are not going to 
announce that they are no longer supporting It. Now we 
have an alternative operating system and at a very 
attractive price, Including very fine documentation. 

See STAR-KITS or S.E. Media advertising, for pricing 
and ordering Information - STAR-OOS/STAR-OOSK 

BBS Systems 

A further note from Kent Meyers Included the 
following. "I would also like to see some mention made In 
the Micro Journal of the only two BBS systems In the 
United States that ere dedicated to the dissemination 
of Public Oomaln Software for 68XX computer systems. 
One Is located In Oklahoma City, OK and the other Is In 
Hawthorne, CA. The Flexnet system In Oklahoma City has 
been on line for about two years (405-728-7654) and has 
a special file transfer protocol to allow error free 
transmission of files. The California system Is Just 
coming on line 1213-5 39-7619) and plans to offer both the 
Flexnet and the CP/M Xmodem protocols for file transfer. 
The Interesting thing about this system Is that It Is 
running on a CP/M computer." 



RX end TX 

I've done a few more things to the programs USEND and 
UREC published here a couple of columns ego. In using 
them for a while. It became apparent that they were a 
little Inconvenient In several ways. First of all. If I had 
several flies to transmit, 1 had to go bock end forth 
between the two system's terminals to "type In all the 
proper commands. First step was to add some code to 
Interpret a list of files on the command line at the 
transmit end and to transmit the filename to the receive 
end. I simply set up the File Control dlock at the 
transmit end and sent the 11 characters starting at the 
5th (filename and extension) to the receive end where 
they were placed In an FCS. The receive end then 
attempts to open the file and reports to the CRT the 
fact that the file already exists, asking If It may be 
deleted. That was fine when 1 didn't atteinpt to send a 
string of files to update existing ones on the receive 
end, which still necessitated "typing on both terminals. 
The final Improvement was to send the delete question 
back to the sending end and allow It to be answered from 
there. I also found that my Input routines neglected to 
mask off the parity bit, which went undetected until I 
happened to try them on a system with a terminal that 
had parity enabled. The character Input GETCHAR end 
GET IF routines ere now properly set up to AND off the 
perMy bit Just In case. 

Now I can set up a string of filenames In the command 
line end go at copying them from system to system. 1 only 
have to type RX at the receive end, and RX stays alive 
until It sees an escape at the receive end. I can 
therefore use TX a number of times without ever going 
near the receive end. 

1MI Include the present listings of these utilities 
here for your Information or use. I am not yet quite 
finished with them, however. The final version will reed 
the directory at the send end end do spring matching 
just as the various versions of copy utilities do. In 
other words, TX .TXT will transmit all files with the 
extension .TXT. TX TEST will transmit TEST1, TEST2, 
TESTFILE, etc. 1 didn't mention above that presently the 
filenames appear on the terminals at each location as 
the flies ere opened. 

1 suppose that out of the SS-50 bus owners that read 
this, perhaps a couple hundred of you will have PL/9 and 
of those, two or three might have two systems. If 
anyone does actually use these, I'd like to know what you 
think of them. I think they are a good demonstration of 
programs that access the hardware of the system 
without resorting to assembler code In any way. 



1% PM6ROT TO S£M A TEXT Oft il«AR> fll£ VIA «1flt, 
ItfcARf FILE IS CONVERTED Tfl ASCII FOR TftAMSKlSSIO*. 
THIS HAS K£N TESTED UP TO **M MM T*AN$niS$J0t Wl 

•/ 

0RI6JN = 0; 
STAC* = JflftFF; 



OMSTAKT 
Cft * 106* 
IF « KM, 

tiM > a, 

STMT - S, 
TIT • *T, 
JQM = 0, 
SEfcttfi ■ '♦, 

fiifjo * F, 

REA0Y » 8, 

EKD < m, 



/* THESE Afc UStt FW WmRTL HAtftrtAMMj ♦/ 
/♦ 1* 0*5 THAT MS HOT USE* ftfKDKO IN T* ♦/ 
f% FILE STREW HAVE fcW W£ PfllftTAlU CHARACTERS ♦/ 
/• H* EASE OF QCAJGSIN6. «/ 



/< IA5T m INST K CfllfTROl CMAftACTEft 1/ 



mum • KB; 

AT *E000 Wt KWEfl<2l; 
AT IC0O4 IYTE THFH2); 
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JIICUIOE Tft^ALS£.0£F,U 
lHCl.UIE FLEI.LII.ls 



PROCEDURE PUlCHAffltVTC .OCVlCCt OW WARl; 

REPEA1 UiTtL OCV1CECOJ AMD 2 

DEVICEmOtARj 
EWROCj 



PROCEDURE CRJi 

P<JTCKARLTEAR,CRl; 

PtrTChARJ.TE^LFJ; 
ER0PSOC; 



PROCEDURE WIRNIYTE. DEVICE, .S1RIM$>: BYlE N; 
Mi 

UNCLE STR1*(N) 
MC!R 

PUTCNAR [ . DEVICE, SUfNS I RH { 
JWM; 
EKC; 
EiOfRDC; 



PRKEOURE BETCKA» {|ITE .OEVICEl; 

REPEAT URTR JCVICSIO) AND I; 

EUPRCC BITE lOEVlCEtll AAD I7F); 



FL!l; 
ERO; 

SET.EtTERSIMi.lllFkE.n; 1% DEFAULT TEJT FILE •/ 
PllTCXtf1.flO0Efl,S«Whi i REQUEST TO SEW 1/ 
REPEA) 

CH > 6ETCllAR<.Mfl5EH>; 

UiTtL CM «f 1LEW; 1% LOCi UP HE* IF RCtf !* «JT READY 4/ 
SEW_FlLEJ*A*UtflL£>; 
REPEAT CM > SniPt.ROOCW 1*7 R CH <> 0; 
If CM - ROM THE* 
BC6!f 

Pfm* (.fEVl/ftlETE EMSTUS fW> <t; 
CH » ttTRKAF .TERR,; 
PUTCMARUERft.C* j 
PITCHAKI.TERM20J; 
•UirHOF ■.*ODEl,C«>; 
IF Ch < Y .4910 Oi y TMlN 
K61D 
CRLF; 

CLOSE/HE l.IRFU I j 
END; 
EM; 
miii CH » READY .0* CH » Y .OR CK • >; 
IF CH <> READY THEN REPEM CH > fiETlf MO&EH) irk CH * READY; 
OPEH.FOR.RCAD I.IRRIII); 

if nrriimoo then 

6E6I* 

REPORT.ERRORLIRFllEl; 
fill; 
END: 



/• 6CT1F RET0RJ6 CMS If 0* HAS RttR IRPUl, ELSE RE71/RM5 RU1. 
THIS PtOCCOURE ROES RQT RAM FOR A CHARACTER it 



mCtmt 5EMF <DY1E .KVICE); 

IF KMZUO) AMD I THEN RCTURfc BYTE lOEWCeil) tMi r* j 
EHPROt IVTE 0; 



PROCEDURE URASCllvrE OW, .UilWU, .LilMiEJ; 
UilHLE • CHAR AMD tOf ; 
URrmc « SKlFTlCMAfl,-4l AND lOf; 
IF LNIISLE < 10 THEN INIIILE > IR1IRLE ♦ «!« 

ESC LRIRfcE > LRIBBLE ♦ 137; 
IF UN11ILE < 10 THEN UNIlBLiE * 4JM1IILE ♦ 130 
ELSE URIBBU: - UHIlBU * ill; 
ERDPROC; 



PROCEOlltE SERO FlLENAREIlYTE .FCBlrBUE n,CXR| 
R^i 

MKILE R< 15 
BEtfIR 

CHR • FCR<R>; 
PUTCHARi.ROKN.WRl; 

IF £HR>0 THE» PUJCHARLTERR.lWl ELSE PUTCHARI.T£JW t CM*] j 
IF R*j| THEN PUTCMARt. TERN, , ); 
R4UI; 
ERO; 

PVTT>ARLTERII,I20>; 
GBPROC; 



PROCEDURE SENS I BYTE CH, »l f DC. BIR.FILE, [RT1LEU20I, N: 
IRTEGCR COUNT] 

f 1V1T]AIUE ROOCNFWT 1/ 
ROOOKOl-Ji 

IRMKOt'ftS; /• tilTlALUE DIVIDE BY 14 ttOC* ♦/ 
CRLF; 

REPEAT 
REPEA1 

BET FILER** UNFILE); 

IF CCR AMD I THE* /• RO «0R£ FIIES OR INPUT LIRE. 1/ 

BEfilN 

Cttfj 

PRfRT t.TlRVf IRI5RE0 TRANSFER*); 



CM « READ*. Iff IlEl; 
IF CH > 102 IHEM 
K6IN 

SET BlHARYI.IRFItEU 

IW.F1LE • TRUE; 

POTCMARLMOOENJIN); 
ERO 

else 

K6IR 

BIR.FILE ♦FALSE; 

RVTCHAR(.HQ9£V!TI; 
EW; 

REPEAT ZK2* 6ETCHAR<.H0DER> LNHTIL CH> START; 
IF BIR.FILE 1HEN BINASCtCH, .CHI, ,CK2Jj 
COURT • 0; 

WILE IRFILEIIJ-O 
RE61N 
REPEAT 

IF BIN FILE THEN 
BE61N 

PyJCHAR(,RODER,CHJli 
PUTCHARI.*QKR,CH7); 
COtlNT « C0UMTt7; 
RRD 

asE 

BE6IR 

PUTCHAJK.ROKISCHI; 
COURT • C0UR1 # t; 
ERR; 

IF COURT AR0 JOOfF » THEN PUTCMAR{.TERR 4 li; 
CM - R£AD(.lNflLE); . 
IF BIR.FILE 

THER BIHASCICH, .CM), .042?; 
UiTIL COURT » 10000 .OR ]NF!LE(1»<>0 
IF 1RRII£U)*0 TRW 
BE6IN 

Pi/TCWP<,HCOEM,N«mR£ ; 
ROURT > 0; 

REPEAT iMHlL 6EllF(.R0D€Nr< STMT; 
EMt; 
ERD; 

IF IkT ILEIIIOR THER RtPOR*.ERR^(.lMf llil{ 
aOSE.FHE (.iMFtlEi; 
PUlCHARf.MODDl^RBI; 
CRLF; 

REPEAT CM.fiEICHAR^ROOCR) URHL CH > START; 
FOREVER; 
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/< MOEAW TO AECEivE A TEXT OR IlKAfiY FILE VIA HUE. 

IINAAV fill HAS KEN CONVERTED TO ASCII I* SEIJ PROtffiM, Art 

THIS P*fcRAF COMOrS IT Mpt TO BIN*** FOWL 

PROGRAM MAS Kft TESTE* UP 70 HO* Hll *J?H NO HFTICUUIES 

•/ 



EIB; 

PUTCHMLTEM,I20); 



QAJ61N « 9; 
STACl « IBOfF; 

CONSTANT 
01 - 100, 
Lf t $M, 



ITA 

S7AAT 
TIT 



Br 

T, 



FilERO « F, 



READ? 
OCLtf 
EMC 



■ 1, 

« KM, 



NAIT1N6 • *W; 

6101 Al. 

IrU U/TF[LE(320); 

AT SlOOO WE OATAMOOIO); 

AT IE00O WE NOPEKf2l| /t tftt K»6* PORT ADDRESS i/ 

AT ICQ04 IYTE TtWH2;| /» 6«M TEAMING PORT AIORESS »/ 

AT fCCOC irfE IRKORVj /i NORtl* WIVE NWIER V 

INCLUftC TROFALSE.KF.I; 

INCLUDE FLEI.L1I.1S /« FlEl FILE HANDLING INTERFACE ♦/ 



PROCEHATE fUTCMMfiVTf .OEMCEx IVTE CHAM; 
AtftAT UMTIL 0€VI££tO) AMD 2; 
•CVICEaKHAR; 

now; 



PROCEDURE SET04AR 4JYTE .DEVICE >; 

REPEAT WTIL OEVICEtOI Mf* J; 

00PR0C WT£ (DEVIGEII) AID I7F); 



OKEIUNE PRINT clTTE STRINilrfYTE H; 
**; 

WKCLI STRlfflKI 
K6JN 

PUTCNAA.JEA^STftlNMH; 
R-««li 
EW; 
CMDPROC; 



PROCEDURE CALF; 

PUTCHARt. 7*1*1,101); 
PIITCNM(.TERR,l«Ali 



ATOME ASCBtAitYTE LNJftfti, IN 1 IDLE); 

IF UUtti >IM 7HEI UHIIILE - (ftllfcE - 17-7 

ELSE UriMLE - UtflMU - W; 
IF LN1NLE MM THEN LNIIlLE « IJIIBLE - «7 
a» UlNii • LMIMLE - ISO; 
tVTEl9H[fTflMllia,4) ♦ LUMUJf 



ffinif.WJCT: IYTE ■, CHM| 

flfTXHM l.l«MCil k FKi£WJt 

OWrP)L£(3)URCWVj 

DM* 

MILE I < 15 
Kill 

CHAR « CETCXAAMODCHIj " 

OJiniidKHARi 

IF Cm m e no PUTCMJW. TOW, 1201 aSE FUTCKMt, 70» V CHA»); 

TF I « U IMOlPUTDiAfll.TFJW, l| 



PWCEOWC 6ETIFIRYTE .DEVICE); 

IF JEVICEIOT ANC 1 TMEi KTUAft lllE <0CVlCEill m *7FI; 
MPttC IYTE 0; 

/♦ HAIR PR06AAA STARTS HERE ♦/ 

PROCEDURE REC.LOCAL ; IYTE CM, CHI, UNFILE: 

iNTESCfc !RKl,LimT,W>TE; 
CALF; 

NOOEMlMll 

A0OflH<O>:<l5; /» INITIALIZE DIVIDE 17 U> CJXt »/ 
REPEAT 
REPEAT 
REPEAT 
CH - 6€TIF .WODE1 ; 
IF CM ■ THEK 
CH « flETIFl.TEWII; 
UNTIL CN « SEIfDR? .Oft CH rllD; 
Jf CH « III THEN 
IE61N 
CRLF; 

PRINT "EUT RECEIVE RODE*; 
»tf r 
Flit; 

«£7F]LE_H00fJI; 
OPER.FOR,«1TE C.DUIF!L£J| 



IF 0UTFILEI1M3 THEN 
KG1N 

P«UT(*OELETE FILE' 'I; 

PUTCHARt.WKA/IH /l DELETE F|LE*l/ 

CH « S€rCHMI.RDD£N)| 

PUTCHAH.TFJW.CHl; 

WLF; 

IF CM • r .01 CH t > THEN 

ksin 

DELETER! (.QUTFKLEl; 

OPEN/OR MI7E4.0U7F1LE) 

DIP ELSE CLOSE FILE(.OUTril£l; 

OS] 

URIU Of • SENDPO .» CH • J » .W W » r; 

IF flUTPtLEIIlOO THE*. AEPORI EAAOR^OUTFllElj 

WIIT 'READT TO ACCEPT »| CRLFj 

JN0C1 « 0| 

IIM • 0| 

PurOMRr.^EHiREAftT); f* TELL SENDER READY ♦/ 

CM « 6ETCMW.MWEA); 

\f CM « |[M TO* 

■C61N 

SET IIWMV(.OUTFILE>i 
IU FILE - TRUE; 
£W 

USE UN FILE « FALSE; 
PVTaMS(7pVDCH,STMTl; 
REPEAT 

Of * «TCMMl.HOW!>i /i WIT FOR A CHMACTER «/ 
CHI m CK; /• SAVE TT •/ 
If CM <) ERfi .AND CM i) «AI!(W 
WEM 
H61N 

OATA(TNOEJ) • CH; 
INK! • INKIHt 
END 

a$C LIMIT t INOEIi /• ONE PAST LAST VAI.ID CHAR ♦/ 
IF L1RITO0 THEN 

PRINT ' MM1NS TO BIST*; 

PUTCNrVK.IER^IOD); 

(NSEI'O; 

NN1LE IN0C1 ( LIH1T 

Kir* 
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If Hl/IU THE* 
K6JN 

INK) « Itf9Cl«2; 
END 
tLS€ 

CH *- DATA^ INDUS 
INK) « l«DC)<:; 

END; 

MntLWTFlLf, CH); 

winr- '; 

PUTOt«t.TttM081; 
PU7CMRf.Ott,$ttA*); 

]N5£l*fl; 
ENS; 
unfCL CHi « Etf; 
ClOX.ni£l.0UTFIl.E»; 
fWEvES; 



,>AM IKKl^l ; 



OS9 USER NOTES 



By: Peter Olbble 
517 Goler Mouse 
Rochester, NY 14620 



Perspective 



Depending on my frame of mind It's right before 
final exams or between Thanksgiving and Christmas. 
In the before finals frame I know there's no time to 
write a program for this column. The other frame 
tells me that this Is a good time to think about 
where OS-9 has been, and where It's going. 

Only one Important product has come from 
Mlcroware this year, OS-9 68K. I don't have a 
computer with a 68000. and It's too early lor my 
network to have pulled In any solid Information. 
OS-9 68K sliould have an Important Influence on the 
future of OS-9, so I'll comment on It In thTs 
column, but I'll be mostly guessing. 

Only one non-MIcrowere program comes to mind as 
an Important new program, Sculptor (used to be 
Sage). I don't have It either, but I have played 
with It. If It were Inexpensive, Sculptor could 
have an Important effect on OS-9. Sculptor Is, 
however, very expensive. •• 

Since Thanksgiving was In the recent past I'll 
count blessings. 

There must be something special about OS-9 and 
the systems It runs on- We haven't all run off to 
the MS-Oos camp. 

One nice thing about OS-9 Is obvious from where 
I sit. On my left Is my CoCo. It cost about S1000 
and Is mostly compatible with the $10,000 Glmlx on 
my right. The CoCo moves along nicely. The Glmlx 
Is one of the most powerful microcomputers I know 
of. II that Isn't enough (and of course It Isn't), 
68010 and even 68020 machines that run OS-9 68K are 
way beyond the twinkle In the eye stage* Just the 
6809 spectrum, from the sub-megaherti CoCo to the 
3-Megaherti chip that's supposed to be available 
next year, gives OS-9 systems an exceptional scope. 
The addition ol the 68000 chips runs the highest 
performance OS-9 systems up near ma I nf rentes- 



OS-9 Is a lot like Unix. It borrows enough 
from Unix that I am sometime (momentarily) confused 
about which system I'm using. Still, OS-9 Is not 
Unix or even a Unix look-alike. In a way that's 
sad; we can't just plug In all that Unix software* 
In another way It's an advantage; we have better 
performance than a Unix look-alike would, real-time 
capabilities that would be hard to duplicate under 
Unix, and reliability that wasn't designed Into 
Unix. OS-9 doesn't look like Unix, but It Is close 
enough that I can develop programs on my micro and 
move them to Unix with few changes. Moving programs 
In the other direction Is almost as easy. 

Usually the thin supply of software for OS-9 
seems like a disadvantage, but even that problem has 
a bright side. Even with all the new CoCo OS-9 
users counted In we're a small group. Too small for 
the big software houses to notice* If you need 
Framework and you need It NOW, sorry, OS-9 Isn't for 
you; but If you are content with something a bit 
behind the cutting edge maybe this Is the right 
place. It's a programming truism that analysis and 
design are the hard parts of creating a program. 
It's also true that the 808x class . f 
micro-processors are tricky to program. 

If you're a Individual programmer you'll have a 
hard time beating the software houses In the PC 
market, but the big software houses don't come over 
here* The PC folks paid the bill for the analysis 
and design of lots of nice programs- The best of 
them were written In 806x assembler. If you combine 
the best of the MS-Oos database, or spread-sheet, or 
word processing, or communications programs you can 
avoid the analysis and tr la l-and-error that was done 
for the original programs- Then you can code up the 
result In assembler for the 6809 or 68000. 

I don't think there are quite enough of us yet 
to support a few full-time free-lance programmers, 
but we're getting close. When we get there a few of 
the best OS-9 programmers should be able to make a 
tidy living coding up standard programs for us. For 
programmers this Is a great opportunity. For 
everyone else? When the programs arrive they will 
be running under OS-9. OS-9 does things that MS-Oos 
doesn't. 



The View from the Ivory Tower 



I 



don't know much about process control. 
That's a shame because process control Is what many 
OS-9 systems do. I've read about It a lot, and 1 
know a little about the underside of the computers 
that control the laser fusion project at the 
University of Rochester's Laser Lab. This Is Just 
enough knowledge to be dangerous, but I'm going to 
bravely (foolishly) point at an area that OS-9 Isn't 
I n but could be. 

For years only two versions of OS-9 have been 
available, Level One and Level Two. They are 
different, but the difference Is mostly that Level 
Two can handle more processes than Level One. Now 
that OS-9 68K Is available engineers can chose OS-9 
for a whole new kind of application. Robotics and 
"simple* 1 vision require serious number crunching and 
large amounts of memory. These were out of the 
range of the 6809 but the 68000 can reach well Into 
the simpler areas. 

I surely don't need to tell people about the 
power of the 68000. Wbat the hardware vendors don't 
seem certain about Is the advantages of combined 
68000/6809. Multiple 6809's are well understood. 
1/0 processors make an Important difference In 
throughput on 6809-based systems. They'll be at 
least as Important on 68000's. 
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The suggest I on I'd like to make Is that a 6809 
In a 68000-based system need not stop at simple I/O 
processing. A heavy Interrupt load hurts the 
performance of a 6809 and It Is good at handling 
them. The 68000 Isn't nearly as good with 
Interrupts as the 6809. So Interposing a 6809 
between a 68000 and as many sources of Interrupts as 
possible Is a good Idea. 

Instead of irakMg a list of all the areas where 
a 6809 Is more cost effective than a 68000 let me 
suggest a job they could do nicely as a team: I 
don't like sorting my returnable bottles and cans 
out hy what used to be In them. A machine should be 
able to do It for me- The machine would watch a 
conveyor belt running by It. It would find each 
container as It went by and figure oot what used to 
be In It, then It would knock It Into the 
appropriate bin. 

There are two parts to this probtem: vlsfon and 
manipulation. The vision part Is hard. The 
manipulation {getting the container off the belt and 
Into the bit) relatively easy. Just finding bottles 
and cans lying on a belt at any odd angle would be 
challenging for a 68000 If the Job had to be done 
quickly. Recognizing characteristics like shape and 
features on the label might put the problem right 
out of a 68000's range. The conveyor belt will 
probably have to be slowed until the program can 
recognize most of the containers as they go by. 
Operating a tool that knocks containers Into bins 
would be easy for a 68000 fast enough to handle the 
vision problems, but that processor Is already 
running flat out peering at the passing rubbish. A 
6809 could easily snag Information from the 68000 
and babysit the stepper motors and solenoids. 

Here's the trick. There's nothing in the OS-9 
model of the world that says that all processes have 
to be running on the same processor or using only 
common memory. They don't even have to be running 
on the same kind of processor. The requirements are 
that some memory must be shareable between processes 
(for shared modules), there must be a way to copy 
data from one processor's memory to another's, and 
each process must seem to be able to reach OS-9 with 
a software Interrupt. 

I'm sure there are problems hidden In this 
simple Idea, but think how easy It would be to work 
with the system. Start a 6809 -object -code camera 
handler, a 68000-obJect-code vision program, and a 
6809-object-code manipulator operator. Let the 
camera handler and the vision share a data module 
with the bit-Image of the scene In It. Run a pipe 
from the vision program to the manipulator operator. 

I don't know of any microcomputer system that 
lets you run two processors together that smoothly. 
There are some hardware problems, but nothing the 
StOO vendors haven't already dealt with. Software 
Is the core of the problem and we are already using 
an operating system who's design doesn't rule out 
teamwork. 

A Simple C Function 

I hadn't planned to put any code In this 
month's column, but I was thinking about the trouble 
I had raising a process's priority from Inside. 
Some of you might be able to use my solution. I'm 
afraid that this Is one place where Level Two Is 
easier to work with that Level One. I only worked 
It out for Level Two and the conversion will be 
tricky. 

The problem Is that OS-9 has a SVC that sets a 
process's priority to any number you choose, but you 
can't ask It to raise the priority by 10. Nor is 



there a simple way to ask for a process's current 
priority. A Level Two user has to use the FlGPrOsc 
SVC to get a copy of the process's entire process 
descriptor and pick the priority out of there. Then 
he can use FlSPrior to set the priority to that 
numbur plus the required change. That's Just what 
one of the functions J Included with this column 
does. The other function, Getpr, returns the 
current priority without changing It. 

A Call from the Oracle 

I Just heard from Ken Kaplan. 1 persuaded him 
to make some prognostications aboot 0S-9's future. 
You should view them tn whatever you think Is the 
correct light for remarks about the future of OS-9 
from the president of Mlcroware. 

Ken believes that within the next two or three 
years OS-9 will grow to be bigger than Unix. When I 
sounded doubtful he admitted that his best evidence 
is covered by non-disclosure agreements with 
Mlcroware's customers. He did point out that OS-9 
Is already bigger than Unix In Japan (which may 
become a key source of computers), if you count 
CoCos, Ken observed that more computers run 0S-9 
than Unix already (then he admitted that that's not 
all that significant). The important arguments 
stayed hidden. 

Ken thinks we'll see at least two new major 
personal computers In United States running OS-9. 
Major means real mass-market machines like IBM or 
Sperry (those vendors are my suggestions, not his). 

We can expect Fortran for OS-9 nexf year. It 
will be available on the 6809 first. 

Networking for OS-9 Is already available from 
Fujitsu on the FM-11. If 1 lived In Japan 1 could 
buy It today. Ken expects It to become available 
here soon. It sounds like pretty reasonable 
networking. It runs over any kind of connection and 
a I lows a user on the network to use devices on any 
connected computer. 



** Editor's Note; Because of the expense of 
'SCULPTOR' or 'SAGE 1 (the only name we have ever 
seen It run under), and the 'bugs' we saw In 
versions demonstrated to us, caution should be used 
In ordering a thousand dollar plus a couple hundred 
dol lar piece of software. 

I have received telephone reports that the latest 
versions are running fairly bug tree. Fact Is a few 
'glow'. However, like all other major products 
advertised or reported on or In 68 Micro Journal, 
until we 'actually see' the fixed product, 1 will 
recommend caution to prospective purchasers. 

We have received 'promises' for the past two or 
three years that a review copy was on the way, but 
as yet has rot arrived. If and when a working 
version sfiould arrive you can be certain that I will 
have a report for you. The only verified reports 1 
have so far. Indicate the software has certain 
failures that should not be present In such an 
expensive package* These reports are a couple of 
years old, but are all that I have from users who 
have purchased the product and have nothing to gain 
from 'hyping'. Until 1 know better - 'CAUTION' IS 
THE W0R0! 

OMW 



14 



'68' Micro Journal 



1 tmdude <os9.n> 

2 Idefine PRIORITYOFFSET 10 

3 tdehne T*UE 1 

4 Idefine FALSE 
5 

6 static char pdesc [^12]; 
7 

8 iOdpripid, delta) 

9 int pid, delta; 

register int priority? 
ifHprjority - getpr(pid)) != -1) 

return Isetprlpid, prion ty^delta) J; 



10 


« 


11 


i 


12 




13 




14 




15 




16 


1 


17 




IB c 


jetpripid) 


19 


int pid; 


20 


{ 


25 




22 




23 




24 




25 


j 


26 getpd(pid) 


27 


ir>t pid; 


28 


{ 


29 




30 




31 




32 




33 




34 




£ 




37 




38 


J 



else 



returnl-H; 



No- the protlcat 

Hicrowirt docinot vjpport ia>i(Knrtt oroductt inviarr. In the paat 
there wa* a version *vt Ublr for thr older Dt3-COnt r o 1 1 er from, 
it»to- u nf(j r ^iitflv for »v OC^cont rol ler , there i"l nothing at all 

Our i no a recent v i %-J t in the atatea *n bought the OC3-dr*vere. ^•hlc^ 
froi av point of viti auat be verw itailar to the 0C4-dr iwtrt, 
Althouoh Cite 0C3 u*r* the F0177l-ch*p and the DC* uaea the 
F0l7?9-ch»p a* d i ac-cont rol 1 rr . 

Ai drier, bed on the d . «a I created a diat with the OS9600T, SYS. 
CMOS and OEFS director ^ti, 1 put the OC3 driver*, boot aodul* and 
dtvtct deacrtPtor* under a arparate directory, called DC3. I copied 
the SYSOEFS into the OEFS-d • r ec t or v aa detenbtd. 

Trvinq to »t«i«b1« I pet the ■fittgt ER • 0*-c annot open the OEFSFIlE. 
So aopercfttly 1 »a do^Q aoarthmg wrong 

50 after aeveral evrnmat of frustration eeanwhHe 1 give uo H> for 
no** #hich finally ended up into thu letter to you. hoping that you 
could 01 ve ay aoae mfoa hot to proceed 

An other reducat to vou would be to aupply ae w k t h an example hot* to 
connect an printer to OS? aof t aar cat ae , by utmg the ACIA-dr ivtr. 
But ay Minifloppy problra h*» priority nuib«r one. ao I mil not 
bother vour «ith tod auch iteaa at the aaae tiki. 

I Mould v*rw auch appreciate >f vou could take aoae t i ae to give ae 

aoae helpful 1 info. navbr aoarone at vour aide integrated a OC4 

controller already tn hit «yate«(?>. who knom. And I aa trying to 
reinvent the wheel' 9 

I invert aoae »rc*e, hocng th«* will cover at leaat vour poatagc. 
If not plcaae do not heaitate to let ae knot* 



HlgetpdtpidH 

returntprtesctPRIORUYOFFSET] * 255); 
else 

return(-l); 



struct registers reg; 

reg.rg^a = pid; 
reg.rgjc = pdesc; 

if ij>s9(F_6PKDSC, *reg) « 0) 

returnURUEl; 
eUe 

returnfFALSE); 



Qavaond Caaneuf 

Ber 1 tnmr St r ,^»» 

6457 "until 1 

u. Deraany 

Europe 

Tel. 0ol8l-<93756 



Dear ffnt er Oibbl t . 

Being a Micro Journal reader froa the verv firet hour. I reallv like 
vour 0S9-coluan verv auch. Thu also aaa one of the reaeona for 
adapting OS? to iv old awtpc-box. after having u eed FLEX for aatvv 
yeara aeenahile. with ey adaptation of OS? to a not Supported 
avatea. I ran into aoae probleaa. 

Stncr aupport of 0S9 at thu i>dt of the atlantic n alaoet verv 
cloae to zero. ! ■ondcr ahtth>er vou could givi ay aoae mfo to 
coaplete av 0S9-orpjec t ? 



Flrat av hardwaret 

I run a aatoc avatea. >ia>ag HP-A9 cpu boar dl with 1 Nhj, about 150 

K'raa. ue L ng the UOISK-pach age. 2 five inch drive* uekng the 

OC*-Contr ol 1 er froa louthwrat C»Fd8>. 2 eight inch dnvti uilng the 

D*FA2-cont roller alao froa aouthwrat. 

all of thia run* under FLEX-9.0 without inv problfa. 

Becervtlv I bouOth OS? level t. veraion 1.2 froa a local authorized 

aicroware dealer. I installed thr oichige on ay avatea. it woraa 

great. So I have both FLEX and OS9 available now. 

Thta all wort* fine with the a inch drive*, utmg the 0rlFA2 

control 1 er . 

Mv intention now i* alao to uie the 5 inch dnvrt under OS?. 1 

aight: proceed in two atrpa: firat uaing the drive* like undr' FLEX 

bv running the 'USEflF' utilitv. ao in thia way I would have 4 drive* 

In total to av «y«tea. Hmr.t at eg. auat be to bring uc a bootable 

tvatea. pnly wtth the S inch drive*. 




Dear Mister Casneuf, 

I remenfcer having problems with something called 
DEFSFILE when I first assent) led some source 1 bought 
from Mlcroware. Instead of explicitly Including 
each definition file In an assembler program, they 
build one file containing all the necessary USE 
statements and simply use that file. My OEFSFILE 
looks like: 

* I eve I set 1 
level set 2 

use /H0/0EFS/0S9Defs 

I f eq 1 eve 1-1 

use /H0/0EFS/0S9Sysdefs.11 

else 

use /H0/0EFS/0S9Sysdefs.11 I 

endc 

use /H0/OEFS/0S9IOOefs 

use /H0/0EFS/0S9*8F0efs 

use /H0/0EFS/0S9SCF0efs 
Notice that 1 can select the definitions files for 
Level One or Level Two by changing one line. If I 
frequently assembled programs for Level One, I • d set 
the level In the program Instead of the defsllst 
file. Always including all those flies makes my 
life easy; I don't have to worry about what file 
includes what symbols. If you have memory problems 
you may want to cut down yours defsllst file. 
Another approach would be to skip It. Remove the 
"use defsllst" statement from the program and 
replace It with a few "use" statements for 
definitions fl les. 

It should be easy to add support for your printer. 
AM you need Is an appropriate device descriptor. 
Since you mentioned ACIA, I assume your printer has 
a serial Interface. You may need to generate a new 
device descriptor for the printer. First check the 
device descriptors you already have. If you have 
one called something like PR It may be a serial 
printer. The device P Is a parallel printer by 
convention. If you have PR, you may need to change 
Its device address. You can do this with debug, see 
the System Programmer's Manual for a map of the 
device descriptor so you 1 1 I know what to alter. 

If you don't already have a device descriptor that 
almost fits, you'd be best off assembling a new one. 
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Page 4-9 In the System Programmer 's gives 
example of a SCF device driver you con folio*. 



or> 



while ( — n >• i) «dat** - *\9'; 
break; 



I believe I have heard from other people working on 
support for the DC4 ■ I would Imagine that printing 
this letter will be the best *ay to let them know 
about you . 

Pete 



*C User Notes 

Edgar H. (Bud) Pass, Ph.D. 
1454 latta Lane 
Conyers, 6 A 30207 



INTRODUCTION 

Thia month's column continues the definition of 
O'Keefe'a atr l ng-handl ing library atarted in an 
earlier col am n. 

STRING-HANDLING IN C 

The "stcn" family of string-handling functions does 
not allow arbitrary contents of strings, as the 
processing is controlled by the terminating nulla in 
each string, or by the specified length. The 
consistent us* of thi* family of functions would 
prevent many of the problema associated with 
null-terminated strings which have somehow lost 
their terminated nulla, as the length specification 
provides s non-data-dependent termination condition. 
It may alao create new problema , In that the 
standard C libraries sssutne null-terminated strings, 
which must be assured by the programmer. 

strncat(dat r arc, nj copies up to "n" characters of 
"arc" to the end of "dstV A null character is 
placed st the end of "dst" if there is room. 

char 'strncst tdst , src, n) 
^hsr "dst, "ace; 
int n; 
{ 

char "save - dat; 

while l fl dat++); 

for ( — dat; — n >■ 
if UCdst** -■ 

•dat • '\0'; 

return eave; 



I; > 

•src**)) return save; 



) 



atcncDp(a, t, n) compares up to "n* characters of 
■■• snd "t". It returns s vslue > , - tf , or < 
9 wher "s" > "f, "s» • "t"# or "s" < "t" # 

sccoiJing to the ASCII sequence of characters. 
It s;ips the equal prefixes snd uses the vslues 
of the firet unequsl chsrscters to determine 
the comparison vslue. 

int etrncmp(e, t, n) 
chsr "s, - t; 
int n; 
t 

while <~n >- 9) 

i 

If" ("s !• -t**) return -s-t(-l3; 
if (l-s++) break; 

} 

raturn 0; 



strncpy (dat , ere, n> copies up to " n" characters 
frost "src" to "det*. It returns s pointer to 
the beginning of "dst". Null chsrsctere sre 
plsced st the end of "dst" to fill the string. 



chsr •atrncpy(dat, src, 
chsr »det # "src; 
int n; 
{ 

chsr 'eave - dat; 

while (— D >-0) 



n) 



If (|(*det++ 



I 



return aave; 



atrnend(arc, len) returns a pointer to the end of 
the string pointed to by "arc", of no more than 
"len" charactere. 

char 'etrnend (arc, len) 
char "arc; 
int len; 
{ 

while ( — len >«0 tt •arc**); 

return arc-1; 
) 

atrnlen(arc, len) returns the number of chsrscters 
up to the first null In the string pointed to 
by "ere", or "len", whichever is smaller. 

int atrnlentarc, len) 
chsr "src; 
int len; 



{ 



} 



int 1 • fl; 

while (--len >• 9 it "src**) ♦ ♦!; 

return 1; 



atrnmov(dst, src, n) copies up to "n" chsrscters 
from "src" to "dst". It returns s pointer to 
the next chsrscter after the end of "dst". 

chsr •atrrraovldflt, src, n) 
char *dst, "src; 
int n; 



( 



while < — n >*i) 
( 

if ( ! ("dst** • -src**) ) 
{ 

src • dst; 

while (--n >- 0) "arc** ■ 4 \0'; 

break; 
] 



1 



) 

return dat; 



atrnrev(dat # arc, len) copies up to "len" chsrsctere 
from "ire" to "dat" in reveree order. It will 
work with completely overlapping, but not 
partially overlapping, source snd destination 
strings. On esch iterstion, it swaps 
aucceaaive characters from the next positions 
from the front and end of each string. 

strnrev(dst, src, len) 
chsr *dst, "src; 
int len; 
{ 

chsr •dstx, a src2 - src, t; 

for ( ; --len >• 9 Li. •srci; arcrt*); 

dstz - dst ♦ (srez - ere) ; 

if (len >- 0) -dstz ■ '\9 % ; 

while tercz > ere) 



( 



t - "--srci; 

•— dstx • 'arc*t; 

•dst** • t; 



] 



strnrpt{dst, n, src, K) repests the string "src" 
into "dst H H k" timee, but truncstes the tesult 
at "n" chaxscters. 

int strnrpt (det, n, src, k) 
char *dst, "src; 
int n, k; 



{ 



chsr 'aave ■ dat, *p; 
for ( ; --k >- 0; —dat) 
for (p - arc; ; ) 



( 



if ( — n < 0) return dst-aeve; 
if U("dst** • "p**)) break; 



•arc**) ) 



return dat-eave; 
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The following routines convert Integers to strings 
and strings to integers. The radii of the integer 
(2-36) is spscified on each conversion. In esse of 
•rror in eonvaraion from atring to integer* an arror 
fl*9 (• ercno") ia aat to indicate tha problem. The 
term "integer" actually indlcatea C type "long*. 

Int2etr(det, radix, val) convtiti tha long intagar 
•val" to character form and eopiaa it to tha 
destination atring "det* followed by a 
terminating null. Die reault pointa to the 
"dat" atring* unlaee the requested radix ia out 
of range, in which eaae the reault ia NULL. 
Digita are generated in reveraa order in the 
appropriate repreaentation, then are placed 
into the output atring. Being "Lnt2a.tr", 
"itoa* and "ltos" are defined. 

tdefine itoa(x, y) int2atr(y, It, <long)x) 
tdefine ltoa(x, y) int2atr(y. It, x> 

char •int2atr(dat. radix, val) 

char "dst; 

int radix; 

long val; 

i 

atatic char dig vecM - 

•91234 56?89BEcdefgbijklmnopqretuvvxyx" 

chat buffer[33]; 

char "p - *buf fer[32] ; 



errno • BOOM; 
return NULL; 

if (iliaiit • lower) > 0) limit • -limit; 
if < (scale • upper) > 9) acale - -acale ; 
if (acale < limit) limit - acale; 
while ("arc -- • ■ || "arc •• 't') arc**; 
aign • -1; 

if ("arc •• '♦') arc**; elae 
'-') arc**, aign 



if ("arc 



if (_c2type[l**arc] >- radix) 



1; 



errno • iDOH; 
return NULL; 



) 



I 

wtiile ("arc •• '9') arc**; 

for (n - 9; _c2type[i*"erc**J < radix; n**) ; 

anawer • --arc; 

for (aofar • 9, acale • -1; — n >• 

( 

d • c2type|l* a — arc]; 

if <td < limit) 

[ 

errno • ERANGE; 
return NULL; 

] 

limit - (limit*d)/redix; 

aofar ♦• d+acale; 

if (n I- 9) acale •■ radix; 



} 



if (val < 9) 

•dat** • '-♦; 

val • -val; 
) 

•dat ■ "p - '9'; 
if (radix > 36 \ | radix < 2) 

return NULL; 
do 

•— p - dig vec[ valtradlx] ; 
while (val 7« radix); 
while ("dat** - *p**J; 
return det-1? 



str2int(src, radix, lower, upper, fcvel) converts the 
atring pointed to by "arc" to an integer with 
radix "radix" and etorea at "val", Ita value 
ueually ia a pointer to the next character 
after the laat digit of the number converted, 
in caae of converalon error, ■_errno" ia aet to 
a nonzero value, the function value ia set to 
NULL, and "val" ia aet to zero. Using 
"strlint", "stoi" snd "stol" see defined. 

tdefine Msxint 9x7fffL 

•define Ninlnt 9x6909L 

•define HsxLong 9x7fffffffL 
•define MlnLong 9x69099090L 

tdefine EDO* 1 

•define KftANGE 2 
int _errno; 
chsr"_c2typell29) - 



r 

37. 



/• IOF -» -1 •/ 



}; 



37, 37, 37, 37, 37. 37, 37. 37, 

37, 39, 39, 39, 39, 39. 37, 37, 

37, J7, 37, 37, 37, 37, 37. 37. 

37. 37, 37. 37, 37, 37, 37, 37. 

39. 36, 36, 36, 36, 36, 36, 36, 

36, 36, 36, 36, 36, 36, 36. 36. 

9, 1, 2, 3, 4, S, 6, 7, 

I, 9. 36, 36, 36, 36, 36, 36, 

36, 19, 11, 12, 13, 14, IS, 16, 

17, 19, 19. 29. 21, 22, 23, 24, 

25, 26, 27, 29, 29. 39, 31, 32, 

33. 34. 35. 36. 36. 36, 36. 36. 

36. 19. 11. 12. 13, 14. 15. 16. 

17. 19, 19, 29, 21, 22, 23, 24. 

25. 26. 27. 29. 29. 39. 31, 32, 

33. 34. 35. 36. 36. 36. 36. 36 



chsr *str2int(src. radix, lower, upper, val) 

char "arc; 

int radix; 

long lower, upper, "val; 



< 



char 'anawer; 

int d, n, aign; 

long limit, acale, aofar; 

•val • 9; 

if (radix < 2 I I radix > 36) 

i 



I 



] 

if (aign < 9 44 aofar < -MaxLong |j 

(sofsr"-slgn) < lower || 

aofar > upper) 

arrno • EftANGE; 

return NULL: 
) 

"val - aofar; 
errno • 9; 
return answer; 



int stol(src) 
cbsr •arc; 
( 

loft? val; 

etr2int<erc, 19, Hlnlnt, ftexint, 4vsl) ; 

return (lnt)val; 
> 

long atol(arc) 
char "arc; 
( 

long val; 

atr2int<arc, 19, HinLong, HaxLong, 4val) ; 

return val; 
I 



The "atrfind" and "atrrepl" functiona find and 
inaert character pettarna in atringa. They ahara 
the uae of the "_atrpat" function and aeveral 
auxiliary variable araaa, " atrpat" ia baaed upon 
K, Nigel Hospool's algorithm, •■ deacribed In 
"Software Practice and Experience, 1999", page 595. 
Because the rull C compilera on the 6999 do not 
implement "unaigned char", the charactera are 
limitad to veluea 9 to 127, the ASCII code sequence. 

• define JUphebetSi ze 129 

int _P«t lim; 

int _pet~vec[ Alphabet Si xe*l] ; 

atatic char # ol3>at - ""; 

char •_atr2pat(pat) 

char "pet; 



( 



int 1, i; 

if (pat -- NULL) 

pat - oldPat; 
elaa 

oldPat - pat; 
for (1 • 9; # pet**; 1**); 
for (i - _ Alphabet Size; — i >• 9; 

_pat vac I U • 1] t 
for (pat'- oldPat, i - If — i > 9; 

pat vecl # pat**] - i); 
_pat~lim~« —1; 
return oldPat; 
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• tc f ind(erc, pat) returns e pointer to the first 
occurrence of "pet* in "arc", or returns NULL. 

char *etr find (ere, pet) 

cher *»tc f *pet; 

I 

cher *e, *p; 

lnt e, leetch; 

pet • _etr2pet(pet) ; 

If i_p*t 11m < §} 



) 



for (e - ere; m m++; ) ; 
return e-l; 



for (leetch ■ pet|c - _pet_lim]; ; 
c - _pet_ueclc] > 

for (e • ere; — c >- 9; ) 

If ((*»♦♦) return NULL; 
c ■ - e; 
ere - e; 

If (c -■ leetch) 
< 

for (e -- _pet_lim, p ■ pet; *p; ) 
if ( a a+* !• u p++) goto not_yet; 

return e; 
not_yetw 



I 



) 



) 



etrrepMdet, ere, pet, tap, tlmee) copiee "etc" to 
■det", replecing the first "times" 
non~over lepplng lnetencee of "pet" by "rep a . 
It returne e pointer to the null terminating 
cherecter of "det". 

cher "etrrepKdet , ere, pet, rep, timee) 
cher *det, 'ere, "pst r *rep; 
lnt timee; 
I 

cher *e, *p; 
lnt c, leetch; 
pet - _etr2pet (pet) ; 
if (tines <- 9) 



[ 



for (p • det, e - ere; *p** - - e**; ); 
return p-1; 



If ( pet lie, < 0} 
I ~ " 

for (p • det, e - ere; «p** ■ ■■♦♦; ); 

for ( — p, e ■ rep; •?♦♦ - •a**; ); 

return p-1; 

leeteh • petlc ■ pet lim|; 
for (ti) 
I . 



for (a ■ ere, p • det; — c >- 0; ) 

If (■(•?♦♦ ■ •e**)) return p-1; 
c - -e; 

ere ■ es 
dst • p; 
If (c ■• lestch) 

for (■ -• _pet_lim, p ■ pet; «p; ) 
if (•e** !« •?♦♦) goto not — yet; 

for (p • det- pet 11** e - repT 
•p»* ■ •■♦♦? J; 

— p; 

If (t — tines) 

( 

for (e - ere; # p** - •♦♦a; ); 

return p-1; 
) 

dst - pi 
ere**; 
c • _pet - lim; 

else 

{ 



not_yet: c • _pet_vmclc] ; 



r 



) 



The trenelete family of function* ( "msotrene" , 
"etrntren", snd "etrtrene") trenelete cherectere 
froe) ooe etrlng to enother eccordlng to the contents 
of "froei" snd "to" control strings. Thay uee s 
common routine a _Btr2aep.c a end eeverel common 
variable erees to construct control tablea for the 
treneletlon proceee. Tbie routine mey be eleo ueed 



for the purpoee of conatructing the mapping tablea 
aeperetely from the treneletion routmee. when the 
treneletlon routinee ere celled, e NULL for the 
"from" or "to" parametere indlcatee to uee the teble 
prevlouely defined. Beceuee the Full C coapllere on 
the 6009 do not implement "uneigned cher", the 
cherectere ere limited to veluee to 127, the ASCII 
code sequence. 

• define _M ohebetSi le 128 
etetlc cher •oldFrom - '?*; 
etetlc char •oldTo - -7"; 
cher _mep_vee[_Al phebetSi re*l ] j 

^atr2map(optlon, ftos), to) 
lnt option; 
cher -from, *to; 
I 

lnt 1, c; 

If {from — NULL 44 to •- NULL) return; 

If (from -- NULL) 
from ■ oldFrom; 

elee 

oldFrom - from; 
If (to -- MULL) 
to * oldTo; 
elee 

old To - to; 
ewitch (option) 
{ 

case i: 

for <i - _al phebetSi re; — i >- 0; 
_mep_vec[ij ■ i); 
esss it 

while <i - ♦from**) 
< 

psp will - *fco+ + ; 

Tf (i»to) 
I 

c ■ • — to; 

while (i - *from++) 

_map_vec(ij ■ c; 
return; 
I 
) 

return; 
case 2: 

c - *to; 

for (1 - _A1 phebetSi x«; —1 >- 0; 

mep veel i] - c) ; 
while (c~- -from**) 

_mep_veclcj • c; 
return; "* 



J 



» 



merotrenaidet , ere, from, to, len) copiee "len" 

cherectere from a erc B to "dst", treneletino. 

cherectere In "from" to corresponding 
cherectere In "to". 

memtreneidet , ere, from, to, len) 
cher *det, 'arc, *from, *to; 
lnt len; 



I 



I 



etr2mep(0, from, to); 
while I — len >- 0) "det** • _map_vecj •arc**) ; 



atrntrsntdst , sre, len, from, to) copiee up to "len" 
cherectere from "ere" to "det", treneletlng 
cherectere In "from* to "to". It fills In the 

remainder of "dat" up to "len" bytes with null 
chsrsctere. 

atrntren(det , ere, lea, from, to) 
char *dat, # arc, •from, a to; 
lnt: len; 

( 

etr2m*p{S, from, to); 
while ( — len >• 44 

(•det** ■ mep_vecl*erc**) ) ); 
while ( — len >■ 0) «det*+ • ' \0 * ; 
I 

str trans(dst , ere, from, to) copies character* from 
"arc" to "dat - , tranalatlng charactere in 
•from- to -to'. 

atrtrene(dat, ere, from, to) 
char *det, *erc, # from, *to; 
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_atr2aap<0, fro*, to); 

whlla (*dat** - _««p_v«cl*«rc**J ) ; 



Na*t ■onth* • colunn will cover stvtral application* 
of O'Kaafa'a function* and will continue tba 
dlacuaaion of atr i 09- hand 1 ing function* In tha C 
language. 

C PROBLEM 

The following program: 

•Include "etdio.h* 

tdeflne eiptx) if ( (1) •• '\f> pcintf(* m ) 

aain() 

i 

char c|| - "abcVtdaf; 

char *p; 

for (p • c; *p; p**) 

i 

if ("p !- «c») 

•*pCP>; 
elae 

printf <"lcV-p) ; 

J 
outputa the following: 

ab def 

Thia i* becauae the unmatched "if" in the definition 
matchea the "elae*, deapite what the indentation 
aeema to imply, end the *c' ia not output. 

The guideline illuatrated by thia problem ia to code 
complete expreaalona or atatementa in defimtiona, 
to avoid auch unexpected aatchupa- 

The next problea la to write a program which 
tranalatea the upper caae lettera in a file to lower 
caae and drop* ell control character* (except 
carriage return) using th* appcoprlata tr*n*lat* 
function* described **rll*r in thia article. 

EXAMPLE C PIOGRAM 

Following 1* thl* *>ontb*« example C function; it la 
from Phil Cunaul, and providee an INTfcOL C program 
to coover t a FL£Jt binary file to 51 format. 

Hnclude "atdio.h" 

tinclud* -fl*x.h' 

td*fln* WIDTH 32 

cb*r count, buff (WIDTH); 

int cor add, addraaa, aladd; 

■alntargc, argv) 
int «9C| 

char *argvl]; 

i 

PtLC • fpin; 

int i # byte; 

char *add; 

if (argc !- 2) I 

pc intf ( "Syntax Athexdmp f llename\n >r ) ; 
•xit U); 
1 

if ((fpin • fop*nf»*argv, "br*)) -- ERROR) { 
pcintf ("Cannot open input flle.Vn"); 
axit(l); 
1 

l - 9; 

add • baddteaa; 
curadd • ixffff; 

while Kbyte • getc(fpln)) J- ERROR) ( 
if (byte •■ 2) i 

add[0] • ^etc(fpin) ; 
addll) - getc(fpin); 
if ((count - getc(fpin)) mm g) 

break; 
if (cur add I- addraaa) { 
cur add - addraaa; 
header (i>; 
i - 9; 
) 
while (1) < 

buffi !♦♦! - getc(fpln) ; 
cur add**; 
if (i •- WIDTH) ( 
header (i); 
1 - 9; 
J 

if I — count -- 9) 
break; 



) 

if (byt* •• 9x16) { 

g*tc( fpin) ; 

gatc(fpin) ; 



1 

header (i) ; 

printf<"\nS*\n"); 

exit(9); 



int aire; 

[ 



char cnt , 

int i; 



chkaum. 



•add; 



if (size !• 9) { 

add • taladd; 

if (aire > WIDTH) 

cnt - WIDTH; 
elae 

cnt • ana; 
chkaum ■ si ze ♦ addL9] ♦ addll]; 
printf ("\nSlt92X%94X"# cnt ♦ 3, aladd); 
for li - 9; i < cnt; !♦♦) { 

printf ("%*2X", buffli)); 

chkaum ♦• buf f \ i ] ; 

printf CI92X" , "chkaua - 3); 
1 
aladd - cur add; 
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Last month concerned the writing of programs, mostly In 
the C language, so that they could be easily transported 
between operating systems, particularly between 6809 
and 68000 versions of OS-9. Mostly I deeft with trouble 
spots to watch out for, such as differences In 
compilers, libraries, and data types* I would now like to 
continue, covering techniques 1 have actually used or 
have seen elsewhere* 

As the second part of this month's column, 1 have the 
beginning of some Information on Motorola's new 32 bit 
microprocessor, the 68020, with more to follow next 
month. 

Data Types (again) 

One of the most troublesome problems encountered In 
porting programs between 8 bit and 16 bit computers has 
to do with the changing sizes of the baste Oota types. 
I mentioned this last month, and said that a program 
should never make rash assumptions about the size of a 
variable, but Instead should use the slzsof function. 
This only t kes care of one side of the problem, though * 
What should you do, for Instance, when you want a 
variable to be two bytes long, regardless of the 
operating system7 This might happen when using a file 
wMch has a fixed structure which must be exactly 
duplicated in all programming environments* 

Here Is where the pre-processor again steps In. 
Generally, It Is possible to find data types which hove a 

?lven size on various machines. The onfy problem is that 
he type might differ between machines. Instead of 
usl ng the name of one of the primitive data types, then, 
some standardized set of special names, each of which is 
to have a particular size and range of legal values on all 
machines, is defined. As an example: 

#def Ine BYTE char 
Sdefl ne WORD short 
/define LW0RD long 
fdeflna U8YTE unsigned char 
fdeftne UW0R0 unsigned short 
/define ULW0R0 unsigned long 

BYTE tlnyval; 
W0R0 smallvaf; 
LW0R0 blgval; 
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By using the defined names, Instead of the primitive 
tvpes, a program Is protected from changing data hype 
sizes. As If happens, these definitions will work for 



> 



? 



both the 6809 and 6ROO0, hut that Is not guaranteed for 
all processors* Also, It sMIl makes sense to use the 
defined names since hhey tend to make clearer within a 

rogrem the fact that a variable has been constrained 

O a particular sl*e. 

To encourage the use of special names such as these. It 
makes sense to place the definitions In a file to be 
referenced by an /Include statement, for Instance, I 
have taken to placing these definitions In a file named 
stddefs.h, placed In the same directory as stdlo.h, so 
that the reference In every C program Is f Include 
<stddefs.h>. I ciose not to place the definitions In 
Stdlo.h as might seom tag leal sine* I woufd then have to 
edit stslo.h with each new release of the compiler. 

Assuming that each opera ring system uses a different 
disk (or disk partition) for the standard Include files, 
separate stddefs.h flies can be created, each one being 
articular to a single operating system or machine. On 
he other hand, the same file can be used tn all cases, 
w1t*i any required differences being Implemente using 
#Tf def//els*//endl f constructs, as discussed last month. 

There Is an alternate method for declaring these special 
names, via the typedef specif! r. Instead of 

/define BYTE char 

the line could be 

typedef char BYTE; 

Which form Is used Is probably Just a matter of personal 
preference, though the fact that the /define Is handled 
fey the p re-processor, while the typedef Is handled by the 
compiler proper can make some difference (see K A R, 
page 141, on typedef s for an example) • 

There Is a final point to be ;nade here In conjunction 
with 4 byte long variables and prlntf . Since long and lot 
are synonymous on the 68000. It Is ne^er necessary to 
use +Se T specification In prlntf cont-ol strings le.g. 
M >8d rt Instead of "JtelcT). Use prlntf on a long variable on 
the 6809 without the V, though, and everyfhln» will fall 
apart, since prlntf has no way of knowing That the 
variable Is actually taking up 4 oytes on the stack. To 
defend against 1 this, atways use a special naa^, such as 
the LWOw defined above, for values which require more 
than 2 bytes, and always use the long descriptor 'I' In 
prlntf cont ol strings for such variables. 

Getting the Most Fr<m Your Compiler 

A compiler for a particular machine will genera Ity have 
some ability to create more efficient programs. *"or 
Instance, fifiOOO C compilers will generally be able to 
allocate a targe number of register variables, perhaps 6 
or more, while 6809 C compilers only allow one. 
Mlcroware's 6809 C, on the other hand, has a type class 
specifier of direct for global variables which should be 
referenced using direct page Instructions If at all 

>oss1b1e, Instead of using longer 1 ndexed of f set 

nstructlons. 

The large number of register variables available with the 
68000 would seem to Indicate that everything In sight 
should be declared register If possible. If this Is done, 
though. t*ie code produced on the 6809 may be less 
efficient than possible* Consider a function with one or 
more arguments, like maln(erge,ergv) » Both arqc and 
argv should likely be declared register on the 60000. 
However, It may be better on the 5809 to save the only 
register declaration for a local variable within the 
function. 

Aga1n t It makes sense with the 6609 to use the direct 
specifier. Most other compilers will error out when the 
direct Is encountered, though (as It happens, the 
Mlcroware 68000 C compiler just ignores 1t>. 

How can portable programs use those special efficiency 
features which may be available? As you might expect, 
the pre-processor is used. The following lines occur In 
my stddefs.h file: 

/Jfdef 0SK /» 68000 V 

define REGISTER register 

/ define DIRECT 

/else /* 6809 V 

define REGISTER 

/ define DIRECT direct 

/end If 
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When 1 wish to defer using the single register 
declaration for the 6809, but still wish to use the 68000 
register variables, I just use the REGISTER declaration 
Instead: 

ma1n<aroc,argv> 
REGISTER Int argc; 
REGISTER char "argv; 

< REGISTER Int vail; 
register char *p; 

For the 69000. all of the variables will be placed In 
registers ■ For the 6809, REGISTER translates to 
nothing, so that only the variable 'p 1 Is placed In a 
register. In the same way, any globa' variables can be 
declared DIRECT, but the declaration will only take effect 
on the 6809. 

66020 

Motorola was a little slow out of the gate wtth the 
68000, trailing the release of Intel's 8066 by a couple of 
years. We all know what that lead to, with the IBM PC 
and various PC compatibles wery here you look. It Is 
kind of nice, then to see Motorola's 32 bit micro, the 
68020, make ft out so early as compar d to other $2 bit 
designs. 

I just received the 68020 user's manual, which describes 
the chip from both a hardware and sot tvore viewpoint . 
For those of you who are Interested, the book Is the 
MC68020 52-Bit Microprocessor User's Manuel. It Is 
ubllshed by Prentice-Mall, and has a part number of 
C68020UM(A0in I'm not sure If that Is a Motorola part 
number or the Prentice-Hall number. You can probably 
get It through most bookstores, though 1 got mine via en 
electronics distributor my company uses. Distributors, 
like Pioneer, Hamllton-Avnet, or Arrow, maybe able to 
get the book To you more quickly. 

Since the book came In very recently, I haven't had time 
to peruse It carefully, so all I can say now are some 
general first Impressions. I'll be more detailed next 
month. For now, I will only cover a few software aspects- 

The 68020 Is upwards compatible, at the object code 
level, with the previous members of the family (68000. 
6BO08, 68010, and 680J2). There are three types of 
software extensions: new Instructions, extended 
Instructions, and new addressing modes. 

The new Instructions Include two major groups of new 
Instructions. The first group deats with a new data 
type, bit fields. A bit field Is a string of consecutive 
bits without regard to actual byte Boundaries. A 
single bit field can be from 1 to 32 bits long, and can be 
offset from a base byte boundary by -2©11 to (2*31 )-1 
bits. Bit fields can be extracted being moved right 
Justified Into a data register, with or without sign 
extension, as well as moved in the other direction, an 
Insert. The other bit fields opcodes test the value of a 
bit field (compare with OL set, clear, or complement a 
bit field, and find the first bit which Is set within a bit 
field. These opcodes seem to be explicitly defined for 
use In implementing the C languag *s bit fields, as well as 
the set data type In Pascal. 

The other group of new Instructions consists of 
coprocessor communication Instructions* These 
Instructions create a method In the 68020 for 
Interfacing with other Intelligent devices which greatly 
extend the 68020's power. Current coprocessors include 
a floating point chip and a virtual memory management 
unit. One Instruction allows access to any of the 

firedeflned coprocessor Instructions. Other 
nstructlons, analogous to the 68000 Instructions Sec, 
DBcc, Bcc, and TRAPcc (a new conditional TRAP 
Instruction), allow processing to depend on a 
coprocessor's current state. There are also 
Instructions for saving and restoring a coprocessor's 
current state. 

Certain 68000 Instructions have been extend d In the 
68020. For Instance, the relative branch Instructions 
BRA, HSR, and Bcc now accept 52 bit offsets, so 
subroutine calls are no longer limited to a 64K range. A 
mult Iply wl th a 64 bit result, as well as a 64 btt/32 bit 
divide. Is now available. As mentioned above, there Is a 
new conditional form of the TRAP Instruction. There Is 
also a new sign extend Instruction, EX7B, which extends 
a byte value directly to a long value. This also seems to 
be motivated by C, since current Implementations require 
many EXT.W, EXT.L sequences when dealing with yte 
variables. 
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There are a number of new addressing modes available. 
Constant offsets of 32 bits are now allowed, tndex 
registers. In modes like (dS.A^Xn), can now be specified 
wlfh a scale factor of 1, 2, 4. or B. This means rhat the 
value In the Index register will be shifted before adding, 
with no extra clock cycles, so that Indexed offsets Info 
word, lono word, and quad word arrays can be done 
without jsfng explicit shift Instructions- Finally, there 
Is a very general Indexing form, which can Involve two 
constant offsets, two registers, and memory Indirection, 
with every element optional- As an example, an 
addressing mode of £11000^51,01*4) says t add 1000 to 
the value In A5 giving an address In memory. The 4 byte 
pointer at this address Is retrieved, and 4 times The 
value In 01 Is added, giving a final address- This 
Instruction might conceivably appear In a C pr gram In 
which a pointer variable (at 1Q00,A5) points to an array 
of long integers - 

There Is much, much more to cover (for Instance, the 
68020 comes In a quad pin arr»f package, with over 110 
pinsl) but I have already delayed this c lumn too long 
waiting for the 68020 manual to appear* I will certainly 
have more to say next month, once I have a chance to 
read the book more closely* In the meantime, send for 
the manual yourself, and follow along next month. 



TMP/FREEF0RM FILER 



Reviewed by Bob Nay 

The THP"/FreeFore Filer Package Is a Free Form, 
or Unstructured", File Management System offered by 
THe UeWed Software feisty, 2431 E. Douglas, Wichita, 
KN 67211 (316) 684-5281 (TMP Is a Trademark of The 
United Software Company). Unlike most File Management 
and Data Base Management Systems, T)#*/FreeFore Fller 
does not require the definition of specific Fields' to 
make up a ^tructurecT Record System. 

The "TMP" In the Package name refers to United 
Software's Total Management Planning system of 
Software Packages, which Includes the TI#*Aroet-€ed 
(a Menu-Controlled "System Manager" Front End 
Package), the Df^aneger I (a "structured Data Base 
System), IW/P im m flaw e ej (renamed from T>ff>/Cefc - an 
Electronic Spreadsheet Program), plus others, which 
are all designed to be fully "data compatible" and 
provide a common User Interface and Command 
Structure. 

THP/FreeFcre Filer for 0S-9 sells for S225.00 and 
requires OS-9 Level ll and at least 128K of Memory. 
You have seen It advertised with te SeDfce Sleets 
Computer Systems In the past, and United Software Is 
now making It available for other Systems- We 
understand that It also runs under MS-DOS and some 
other Operating Systems at this time, and that FLEX 
and UnlFLEX versions are being considered. 

In order to visualize the concept of T)f*/FreeFcre 
Filer, Imagine a 3x5 Card File Drawer full of Cards of 
Information. TlfVFreeFcre Filer was designed to elfow 
the User to rapidly locate a specific Item of 
Information that Is In these cards through searching 
for certain Card Names and/or one of the specified 
Key Mcrds on any of the Cards. 

THP/FreeForm Filer allows as many 'Drawers" (Data 
Flies) as you have Disk Storage for- Each "Drawer" 
may contain up to 32,000* Tar ds", and each TercT can 
contain up to 9 Wages* of 37 Columns by 13 Rows of 
Information. Each ''Page*' may contain up to 13 20- 
character 1<ey Words" for subject searches, etc- 
(providing a maximum of 117 •Key Words" per Tarcf). 
The Data Is maintained In two Files; a Data File and a 
Key File (which are generated and maintained 
automatically by the Program)- Searches for Key 
Words" and/or Tard Titles" allow 'wild card* selection 



with the «— (match ANY NUMBER of characters) and tne 
"7" (match any SINGLE character), but Df/FreeForm 
Filer does NOT provide any combinational selections 
such as 'this AND this' or 'this OR tnat r . You CAM 
get a two-level selection by using both a Card Tltte 
N€> a Key Word selection Mask (and proper selection of 
Card Titles can be a big help here)* You can examine 
selected Cards of information on tne Display, or 
output them to the Printer or to another File (in an 
ASCII Format suitable for use wltn a Word Processor 
or Editor) with TMP/FreeForm FMer, but you can only 
output In a 3x5 format suitable for printing on 
slngle-wlde 3x5 continuous form cards (available from 
Computer Supply houses) or in an 8 1/2 x U paper 
format (which separates each card page with a line of 
asterisks)* 

The TlfVFreeFare Filer Disk contains several Files 
including tne Command Files, an Environment Editor for 
setting the Program up for your specific Terminal 
(with "TMP.ENV" Files for several Terminals a\rea<^ set 
up), the "Help" Files, and an Example File set. Two 
Files, "FREEF0RM" and "1"MPENV", must be copied to you 
Execution Directory. Three Files, "HELPFF .DHP", 
"HELPFF.KHP", and the "rMP.ENV" File for your specific 
Terminal (made up with the "IWENV" Command If your 
Terminal Is not already provided) must be In tne Data 
Directory which contains t»>e "Drawer", or Data Base, 
that you will be working with. 

Overall System Operation consists of calling up the 
Program with the command "freefore* 1 , which produces a 
"System Menu" <Flg. 1) which provides the access and 
overall control of the various "Drawers", or Data 
Bases, that may be In the present Data Directory. 
The "System Menu" allows the Listing of the Orawers 
(like a "Dlr"), tne Deletion of Drawers (delete a 
complete Data Base), and the Creation or Access of 
any Drawer through the selection of a Menu option 
N umber . 




Fig. 1 — Freeform Systee Mm* 

Should a (Vawer be chosen for Creation or Access, 
the Program moves on to the next Menu, which Is the 
"File Drawer" Menu (Fig. 2). From this Ktenu, the User 
has access to overall Card File manipulations, such as 
Listing the Card Titles (I.e., a "Dlr" of the Card 
Names that are In the Drawer chosen from the last 
Menu), Outputtlng all or a selection of the Cards to a 
Printer or File, changing the Output Defaults 
(changing the Printer name or specifying a Filename, 
and toggling the output Format between a 3x5 Card 
Format or an 8 1/2 x 11 Paper Page Format), or moving 
on to the TVeeform Data Entry" Screen for operations 
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on the Individual Cards themselves. Again, the Menu Is 
operated through the selection of an option Number. 




Fig. 2 — Freeform File Drawer Menu, 

showing the Drawer (Data Base) 

named "JAN82" selected 

The "Freeform Data Entry" Screen provides a two* 
part access to working with the Cards; first is the 
Card Selection operations, and then the actual Card 
Manipulation operations. Selection of the desired 
operations at this level In the Program Is through 
"ESC <letter>" and Ton tr ol Key" operations. 

On Initial entry Into the "Freeform Data Entry" 
display (fig. 3), an 'Available Commands' block at the 
top of the Display provides a series of II Escape and 
Control Key operations that allow the User to select 
the specific Card that Is to be worked on. 
Throughout the Program, an 'ESC Q" sequence Quits the 
present level of operation and moves the User back a 
level, or Menu, 'house cleaning' as It goes- In both 
levels of the "Freeform Data Entry" display, the User 
can TJult" or get *Ne1p" relevant to the level he Is In. 
From the Card Selection level, the User can specify a 
Card Name, or locate a Card through either a partial- 
name "Search" or through a Title (Card Name) AND/OR 
Key Word ^ask", using either a full character Mask 
(I.e., giving the full Title or Key Word), or through a 
Wild-Card Mask using the ,#n and/or "T. Once a Card 
Is located, It can be "Zappe<T (deleted from the File), 
its Title can be changed. It can be output through 
the "Output Defaults" specified In the previous Menu, 
It can be Reproduced" onto new Cards as often as you 
want (this feature Is provided to make the use of 
"Templates" easy), or the User can move to the 
"Previous" or "Next" Card In the File. All Cards ore 
maintained alphabetical^ by Card TItte, so if a Search 
or Mask has bcated a Card close to the Card desired, 
this procedure provides an easy way to locate the 
desired information. 

Finally, once a Card Is located, a total of 15 
Escape and Control Key operations allow the 
examination, editing, or otherwise Passaging" the 
Information that Is on the Card Just bcated (see Fig. 
4 and 5). As before, the ^uJt" and *Nelp" •ommands 
are available; the "Quit" command saves any changes 
made to the Card, and the 'Help" info Is relevant to 
this level of the Program. An 'Exit" is provided to 
leave without changing anything. The User can Insert 
Information, Delete a character, line, or any of the 9 
pages in the Card, step to the Next or Previous 
pages, Find a specific Page, change the order of the 
Pages by Renumbering them, Add Pages, and specify the 
■Key Words" In the Information that are to be used for 



Fig. 3 -' The Initial Freefcrm Date Entry screen 



locating that specific Card. Finally, a "Save" and 
"Withdraw" are provided which saves a page of 
Information to an Internal buffer, which can be 
withdrawn onto any page of any time. The Information 
saved to the buffer remains there as long as the 
Program is active, or the buffer is overwritten with 
another Save, and any Information that may have been 
on a page when the buffer Is withdrawn onto that page 
Is completely replaced by the new Information. Where 
the Reproduce" command In the previous level produced 
NEW Cards, the Withdraw command at this level simply 
REPLACES any Information that may have been on a 
page. Again, the primary purpose of this feature Is 
for "Templatlng" a page of Information. 




Fig. 4 — Freehrm Data En*try screen 
showing Page 1 of a 2-page Card, 
"boston" has Just been selected as a Key Word- 
Notice the Tree Form" entry of Information 
In this and Fig. 5*s screens. 
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Fig. 5 — Freeform Data Entry Screen 

showing 4 words defined a$ Key Words 

and Cursor In position to 'Renumber" 

tne Page Number. 

In summary, calling up the Program produces a 
"System Menu" (Fig. 1) which allows the specification 
and control of the Drawers, or Oata Bases, themselves. 
The flow moves from the "System" level to a "File 
Orawer" Menu tFlg. 2) for the Drawer selected, which 
provides overall control of the full T>eck of Cards". 
From the Tile Orawer" Menu, the Program moves on to 
the "Freeform Oata Entry" display, which provides an 
Initial level of control for locating and/or manipulating 
a complete Card of Information (Fig. 3). Once a 
specific Card has been selected, control moves to the 
second level of the "Freeform Oata Entry" (Figures 4 
and 5), which allows the control and manipulation of 
the pages and Information that Is contained within 
the Card Itself. 

TMP/FreeFor« Filer Is a flexible Program that can 
be used for a multitude of tasks without requiring a 
"Computer Science" background to understand how to 
set the system up for your Information. As with any 
piece of Software, the more you work with It, the more 
Ideas for using It appear. The Menus may not appear 
too "palatable" to some users, but they do not 
Interfere very #nuch with the normal operation for the 
experienced Computer User (most of your actual 
working time Is spent in the "Freeform Data Entry" 
Screen, where the more familiar ESC and CTL Key 
Commands are used), while Isolating the Operating 
System for tne newer Users. 

The TNP/FreeForm Filer Documentation Is several 
notches ABOVE what the SS-50 Bus Community Is used 
to seeing. The first part of the Manual discusses 
the overall TMP System User Interface and Includes a 
detailed Chapter on setting the Program up for your 
specific Terminal and preferences, white the second 
Section discusses W /FreeForm Filer Operation under 
OS-9. This section begins by discussing a •flea! World 
Example" In general (fn the Manual, they use a simple 
Appointment Calendar for their example), and then 
walks the new User through the use of the Program In 
setting up and working with this example. FInafry, 
there are detailed chapters on the Menus and 
Commands, and a chapter on Interfacing FnWor* Filer 
with other TW Packages- The Manual ends with a few 
pages of "Some Ideas", an Appendix of "Basic System 
Rules", an Appendix of "Errors", a Glossary, and an 
Index. The Manual Is well laid out and easv to r«*<l 



and use (the Figures provided above came directly out 
of the Manual). 

Since the Package Is designed for quick access to 
a specific piece of Information, I found It a little 
cumbersome to have to work through the Menus Just to 
get one Item, but 1 have been Informed by United 
Software that the Disk now contains a Program called 
"QFIntf* which allows the User to locate a specific Item 
directly from the Operating System. Another feature 
that would radically enhance the use of this type of 
Oata Information System would be the capability of 
multl -level searches, such as "frhls MQ that" or "this 
OR that but NOT such-and-such". This would allow 
looking for something like *^ilgh temp ANO small spots 
AND enlarged glands" In a frawer 6T Childhood Diseases, 
or "tall ANIT red OR yellow AND annual" In a Orawer of 
Flowers. Again, United Software Indicates that that 
feature Is on the "Tnlngs to Do" list, and will probably 
be provided as an additional module for TW/Frwfora 
Filer at a later date. 

As It now stands, some thought In naming Cards 
and Key Words, along with the use of the Wild Card 
Mask capabilities, can provide similar capabilities* 
For example, a Card In a Orawer of Ttowers" might be 
named "TallftedAnnual" (up to 20 characters can be used 
for both Card Names and Key Words, and the binder- 
fine" character can be used to tie words together if 
desired), where Card Name Masks of 'Ved - ", "♦•all - ", and 
"•annual" would all locate this Card. The same 
concepts can be used with Key Words. Another 
possibility would be to use a set of Cards with 
somewhat similar Names that would provide TSeneral" 
subject categories which would contain the names of 
other Cards and/or Key Words that contained more 
detailed Information. The first search would provide 
"pointers" to more specific Information. The Program 
as It now stands Is being used by Medical and Dental 
Researchers, so It has a lot of capability. Again, a 
little thought can provide unlimited possibilities. 

Finally, \ hit ONE snag with the Program; the 
"Help" Files would generate an Trror t98" on the Glmlx 
III System, which Immediately ^ombs" you out of the 
Program and back to the Operating System. This Is a 
HARDWARE Trap In the Glmlx HI System that Indicates 
that the Program Is trying to change the Program 
Memory <whlch Is a theoretical No-No In OS-9 — only 
DATA Areas can be changed!). Ilf/Fnrform Filer Is 
not unique In having this problem; I have run Into It 
often with the Glmlx Ml System. Glmlx Installed tnls 
Trap In the System 111 Computers to protect one User 
from another Users FYogram, but It sure would be nice 
to have a Switch to Enable/Olsable this feature- 
Compilers, especially, have problems In this aream 
Anyway, United Software Is looking Into It, and the 
overall Program operation Is so simple that the *Melp" 
Files are seldom needed (and the Manual Is so well laid 
out that It Is easy to find the Information when 
needed In IT). 

All In all, TMP/FreeForm Filer Is a very useful 
Program, and It Is hoped that It can be ^ortecT over 
to OS-9 Level I and the FLEX System CIt Is written In 
C, which makes It transportable — THEORETICALLYIM). 
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MAJOR ENHANCEMENT OF 
SWPTCMIRROR.CMD 



Enclosed la • copy of • rewrite and ■•Jor enhancement of the SWTPC 
PtEX 2 .6 i 3 program named MIRROR. Thia program uaaa all of tha memory 
available to pertain 4 vary feat track-oriented copy of on* diskette 
to another. It reada and vrltee the eectora in a manner designed tn 
require the leaet amount of tine to proceaa alt aactora on a track. A 
double- elded, double-density eight-inch diskette mey be copied to 
another In ebovt 1.5 si nut.ee, ■■■waning the SWTPC FLEX Interlace ia 
used on both dlskettee. 

Since thu program ignorea the logical organisation of the data on a 
diskette, the diaXettee facet have compatible formate. Thia implies 
thet they must have tha aama numbet of aectore per track, neither may 
contain any defective aectore r and the number of tracks on tha Input 
diskette roust not be greeter than tha number of treefce on tha output 
diskette. The interlaces on the diekettee are not required to be 
Identical} however, minor to severe degradation may be experienced on 

nonstandard interlacee. Diakettea created 0y 6600 rtRX systmms mey 
not be XlJUtoBed at all. elnce they leek eector 01 on treck 09. 

Th« Major improvement a in thia program ere aa foil owe i 

1. It laeuee a confirming prompt belor* attempting to reed 
either diskette, providing a means of uelng MIRROR without 
requiring It to be on either input or output diskette. 
7. It allow* the input and output drive numbere to be the ■•■•. 
in which caae it leauae prompta to wrlte-protect the input 
diskette and to Indlcete when to ewap diskettes. 

3. It displays the disk volume name* number* and creetion date 
for each input end output diskette, helping to prevent backward 
copying. Which le ueually inconvenient end occasionally 
diaeetroue. 

4. It ueee revleed wording for aoet of the pronpte to be wore 
helpful to the inexperienced or occasional user. 

5. It eiweye performs a verify operation on the output disk 
regerdleee of the tt,BX VfUlPY fleg or NIRROR paremetere. 

Neither the original SX7PC HIRROR nor thle version nay be uaed during 
epoolirtg operetlone. be ueed with any other programs which uae the 
FLEX eyetam PCD. nor be used from SAStC. ae sll of user memory from 
$0000 to MZMEaTD is overwritten by MIRROR. Both versions alao uae en 
almost-undocumented dlek driver entry point, at location SDElB* celled 
OSEEK, which ceueee the disk controller to explicitly eeek e 
treck/ aector canblnatlon contained In the t> register. Thus MIRROR «ay 
not be usable {without modification) on those eyetene which do not 
support OS* ex. 



Sincerely, 



K. M. Peee 
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1 

chksi6 


Ibsr 


mwwtj 


love it 


••BE B6 


C5B9 


Ida 


oaxsec 


coopute oeiory required 


NCI C6 


•3 




Idb 


N01 




NC3 3D 






oul 






NC4 C3 


•N) 




tddd 


9%H9i 




MC7 34 


•6 




pihs 


d 




NC9 FC 


CC2B 




Idd 


oeoend 




NCC A3 


El 




subd 


>su 




NCE FD 


CSB2 




std 


loctab 




MD1 B3 


NfF 




subd 


NHfff 




••D4 C6 


FF 




Idb 


MM 




ND6 5C 




ch*siB 


incb 






••D7 BB 


C5B9 




suba 


•an sec 




••DA 24 


FA 




bhs 


chtsiS 




••DC f 7 


C5B7 




stb 


trkfit 


nuiber of integral track fits 


NDf 1*27 NAf 


1 

acontn 


Ibeq 


pieory 




NE3 BE 


•227 


Idx 


tlcootn 


continue ty/nl? 


NE6 17 


C1E7 




Ibsr 


putget 




NE9 lt26 C232 




ibne 


pabort 




NED BD 


CD24 




isr 


pcrlf 


crlf 


NF0 16 


CHD 


i 

qetdno 


Ibra 


setup J 


continue 


•in BD 


CD4B 


jsr 


indec 


get drive nuiber 


NF6 25 


7C 




bes 


pbddrn 




NFB ec 


•N4 




cipi 


•I0N4 




••FB 24 


77 




bhs 


pWrfrn 




NFD 55 






tstb 






NFE 27 


74 




beq 


pbddrn 




•IN IF 


[9 




tfr 


xtd 




•{•2 39 




1 
nxtchk 


rts 






•103 BD 


CD27 


isr 


mtch 


scan next itei 


•{•6 B7 


ecu 




sta 


Isttro 




• 1«9 to 


ecu 


ckdeie 


Ida 


ksttro 


check scanned itei 


•tffC SI 


•D 




copa 


llfd 




• HE 27 


•3 




beq 


ckdelx 
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fill Bl CCf2 capa eolchr 

1113 39 ckdelx rts 

I 

0114 BO CIHE pdinfo fsr pstrnq print disk info 



• I 17 C6 

0U9 B£ 
IllC A6 
IDE 34 
•121 BD 
1123 35 
#175 SA 
f 126 26 
012B B6 
01 2A BD 
012D B6 
Ii2f BD 

• 132 5f 
0133 31 
1135 BO 
IJ30 B6 
•13A SO 
1130 7f 
0141 B6 
•143 B7 

• 146 & 
•149 JF 
01 4A BO 
•140 B& 
01 4F BO 
•152 B6 
•155 87 
015B BE 
•15* 5f 
015C BO 
•15F B6 
#161 BD 
•164 B6 
•167 B7 
•16A BE 
•160 SF 
•I6E BO 
•171 7E 

•174 BE 
•177 16 
0I7A BE 
•I7D 16 
•IBB BE 
IIB3 16 
•166 BE 
01B9 16 
016C BE 
•IBF 16 

• 192 «C 
•195 16 



•B 

C890 

91 

14 

CD0F 

14 

F4 
20 

CDiF 

23 

CDfF 

13 

CD39 

20 

CDfF 
C5B2 
CBA3 
C5B3 
C5B2 

CD39 

2F 

CDIF 

CBA4 

C5B3 

C5B2 

CD39 

2f 

CDfF 

C8A5 

C5B3 

C5B2 

CD39 
CD24 

030C 

ClAD 
02E7 
CIA7 
023C 
ClAl 
•292 
CI9B 
•2BA 
C193 
•26A 
CIBF 



• i«?B 20 20 21 63 
•IB9 Jf 29 74 6F 



•IC4 39 3F 
IIC7 07 04 
01C9 20 20 
P1E0 2* 64 
DEE 07 0A 
•IFI 20 20 
020A 07 14 
•2#C 20 2D 
•225 07 04 
1227 20 20 
•23A 07 #4 
I73C 29 71 
0255 20 64 
026B 07 14 
026A 20 20 



2» 77 
69 73 
04 

20 74 

20 73 
20 63 

2# 73 

69 66 

20 6E 



pdinfl 



I 

pbddrn 

pbdstr 

pdfore 

psr$tq 

pnonst 

peeiry 

I 

I tent 

Iscsdr 



Idb 

Idi 

Ida 

pshs 

jsr 

puis 

dKb 

bne 

Idi 

jsr 

Ida 

J*r 

clrb 

I rax 

jsr 

Ida 

jsr 

clr 

Ida 

it a 

Idi 

drb 

)*r 

Ida 

jsr 

Ida 

sta 

Idx 

drb 

jsr 

Ida 

>*r 

Ida 

sta 

Id. 

clro 

jsr 

)*? 

Idt 

Ibr* 

Idi 

Ibra 

Idi 

Ibri 

Idi 

Ibr* 

Idi 

]br* 

Idx 

I bra 

fee 
fee 



Isctdr fee 
feb 

luprot fee 
fee 
feb 

Itrqnt Ice 
feb 

Is/ens fee 
feb 

leontn fee 
feb 

Idfort fee 
fee 
feb 

Jeeary fee 



1108 print disk flat* 

•sysfcb*l50 

■ <♦ 

b,i 

Dutch 

b,i 

pdinfl 
•120 

outch 
M23 I 

outch 

print voIum nuaber 
103,1 
out dec 
M20 
outch 

loctab print date 
sy«fcbtf63 
loctabX 
lloctab 

outdec 

M2f f 

outch 

syslebM64 

loctibH 

floctab 



eessaqe output routines 



outdec 
l$2f 

outch 

syslcb^65 
loctab*! 
tloctab 

outdec 
pcrlf 

•Ibddrn 

fiits 

I Ibdsir 

euts 

lldfora 

ettts 

llsrqtg 

emts 

llnonst 

fiits 

llsesry 

«J£1 1 5 



'-- copy entire diskette in drive 
■0 to drive " 

. r . 

107,101 

'— vrite-protect source" 

' diskette no* 11 

107.404,114 

■•- tarqet identification:" 

107, f 04 

'— source identification:* 

107,104 

■— cpotinui <y/n)? * 

I07 t 104 

■*• source and tarqet havf * 

• different fonati! 1 

I 07, 104 

■"* not fnouqh tetory for track" 



02BB 20 62 75 66 




fee 


" buffer" 


0290 07 04 




feb 


107,104 




0292 20 20 20 73 


Isrqtq 


fee 


'— source has tore tracks than " 


07BI 74 6) 72 67 




fee 


'tarqet" 




0289 07 04 




feb 


107,104 




02BA 20 20 20 73 


Inonst 


fee 


•-- source or tarqet has" 


0201 20 6E 6F 6E 




fee 


1 nonstandard fornat!" 


02E5 07 04 




feb 


107,401 




02E7 20 20 20 75 


Ibdsir 


fee 


•- unabl 


e to read systea id " 


0303 72 65 63 6F 




fee 


■recordl? 




030A 07 04 




feb 


101,104 




•30C 2D 20 20 69 


Ibddrn 


fee 


■-- invalid drive nuiber!' 


0324 07 04 


1 

1 

setupl 


feb 


f 07, 104 




zm 




orq 


cedadr 




C100 CC 


001] 


Idd 


11000) 


set up for copy process 


CI03 FO 


C5AE 




std 


sretks 




CI06 FD 


C5B0 




std 


trqtks 




C109 F7 


C5B0 




stb 


lastrk 




C10C B6 


C5B7 


iloopft 


Ida 


trkfit 




CIIF B7 


C5B6 




sta 


countr 




CI 12 F6 


C5BA 




Idb 


sredrv 




C1I5 17 


01C9 




Ibsr 


p 5 wire 


insert source disk 


cue 17 


0179 




Ibsr 


drvsel 


select source drive 


CUB FC 


CSAE 




Idd 


sretks 




CUE I0BE 0900 




Idy 


•buffer 




C12? BE 


C5B2 




Idi 


loctab 




CI25 B0 


7F 


jtloopl 


bsr 


set 119 


set up for read 


C127 17 


00 CC 




Ibsr 


doread 


read sector 


C12A 1029 01E7 




Ibvs 


pferrd 




C12E 4C 






inca 






C12F SI 


C5BB 




capa 


■axtrfc 


check an track * sefk frror 


C132 22 


05 




bhi 


i 1 «op? 




CI 34 7A 


C5B6 




dec 


countr 




C137 26 


EC 




bne 


iloopl 


loop back 


CIJ9 FD 


C5AE 


i loop 2 


std 


sretrs 


sive neit track \ sector 


CI3C B6 


C5B7 




Idi 


trkfit 




Cl3f S7 


C5B6 




sta 


countr 




CI42 F6 


C5BB 




Idb 


trqdrv 




CU5 17 


#183 




Ibsr 


ptarge 


insert tarqet disk 


CI4B 17 


014^ 




Ibsr 


drvsel 


select tarqet drive 


CI4B FC 


CSB0 




Idd 


trqtks 




CI4E 10BE 0000 




Idy 


•buffer 




CI52 BE 


C5B2 




Id* 


loctab 




CI55 B0 


4F 


<loop3 


bsr 


set feq. 


set up for write 


CI57 17 


00CF 




Ibsr 


do wit 


•rite it 


C15A 1029 0I8C 




Ibvs 


pfer«t 




CI5E 4C 






inca 






CI5F Bl 


C58B 




ct-pa 


■axtrk 


check eai track - iffk error 


CI62 22 


05 




bhi 


xioop4 




CI64 7A 


C5B6 




dec 


countr 




CI67 26 


EC 




bne 


i loop 3 


loop back 


CI69 fD 


C5B0 


iloop4 


std 


trqtks 


save next track 1 sector 


C16C 06 


CSAE 




Ida 


sretks 




CJ6F B) 


C5BB 




CtPi 


•axtrk 




CI74 F6 


C5BB 


1 

rtstor 


Idb 


trgdrv 


restore original sir 


CI77 17 


0118 




Ibsr 


fftiir 


read sir 


CI7A 1026 01A6 




tbne 


pbdvo) 




CPE 3) 


86 50 




leay 


$50 ,i 


sir id info 


CIBI BE 


C5BF 




Idi 


•ldbuff 


id hold area 


CIB4 C6 


00 




Idb 


H0d 


13 bytes 


CIB6 17 


0113 




Ibsr 


ioveiy 


advr it 


CIB9 BE 


C840 




Idi 


Isysfcb 


■rite sir 


C18C CC 


0003 




Idd 


•I0##3 




CI8F ED 


68 IE 




std 


lie, i 




CI92 B6 


0A 




Ida 


1104 




CI94 A7 


M 




Std 


»* 




CI 96 B0 


0406 




jsr 


Us 




CI99 1026 0IB7 


1 

pcoapl 


Ibne 


pbdvol 




C19D BE 


C5K 


Idi 


llcoepl 


complete - exit 


cm BD 


CDIE 




jsr 


pstrnq 
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C1A3 ?E 


CDI3 




W 


earn 




C229 34 
€22B 33 


76 
E4 


dosrit 


pshs 
leau 


u.y.iib, 


a urite a track 








1 fntn 


M 






C22D B6 


IC 




Ida 


lllc 


■ai retries 








1 y= 


lit* addre** 




C22F 34 


•2 




pshs 


1 










i x*[ 


itqinni 


19 address of t*blf * 


C231 IF 


12 




tfr 


«iY 










1 d* 


rack/sector 




C231 2i 


•2 




bra 


do«ri2 










1 ml 








C235 31 


23 


dovri I 


lfay 


••3,y 










1 yontxt data address 




C237 A6 


C4 


do«ri2 


Ida 


|U 


qet track 








t t* 


itt as 


entry 




>C?39 17 


0I7C 




lbsr 


displ* 


display track 








I b=sector«i 


constant 




C23CE6 


A4 




Idb 


.y 


qet sector 








1 a=t 


rack 






C23E 27 


IC 




beq 


do«ri5 






CIA6 3* 


76 


Sfttttq 


pshs 


u,y r i r b, 


* 


C24I AE 


21 




Idi 


••l.y 


qet buffer address 




CIA8 33 


E4 




lf*U 


.* 


set pointer 


C242 BO 


0EI3 




m 


d«rite 


•rite a sector 




CIAA 3? 


7C 




leas 


~t|4,t 


a*ke stack root 


C24S 27 


EE 




beq 


do«ril 






CJAC 3J 


A? FF*# 




le*y 


IHW,y 


UiH is -256 (sector sfxel 


C247 8E 


CB4# 




Idi 


Isysfcb 


error retry 




DM IIAF 5C 




sty 


t|4,u 


save address - ••!•• 


C24A F6 


C5BB 




Idb 


tfqdrv 






C1B3 E7 


5E 




stb 


-••2,ii 


save itart sector 


C24D E7 


13 




stb 


••3,i 






CI 95 IME C5AA 




Idy 


tabptr 


point to tabic 


C24F BO 


DEI? 




jsr 


drest 


restore 




C1F EC 


A4 




Idd 


.y 




C252 6A 


5f 




dfc 


-MM 






CI 98 A* 


44 




add* 


H4,u 


9ft i*i track 


C254 26 


El 




bnf 


do«ri2 


retry 




C1BD A7 


44 




sU 


M4,u 




C256 IA 


12 


dDwn3 


orcc 


•»n 


force error 




C18FE? 


5f 




stb 


W,u 


save tablf constat 


C258 32 


C4 


dcwi4 


leas 


»u 






C1C1 60 


C4 




1st 


*u 


check for track ztro 


C25A 35 


F6 




puis 


pCjU^.I 


,b,a 




CIC3 27 


i: 




beQ 


Sella* 




C25C \m 


: 42 


do«ri5 


ldy 


••2,U 


verify tarqet disk 




CIC5 31 


22 




leay 


M2,y 


adjust pointer 


C25f 2# 


12 




bra 


6o*wil 






CIC7 ]#AE 


22 


setlif 


ldy 


••2,y 


9ft tablf address 


C261 31 


23 


do#ri6 


leay 


••3,y 






CICA A6 


* 


setfil 


Ida 


*M2,u 


qft sector 


C263 A6 


C4 


do^i7 


Ida 


.u 


oet track 




CICC A6 


A6 




Id* 


*iX 


9ft physical sector 


C265 E6 


M 




w 


»r 


oet sector 




C1CE A7 


61 




tta 


,'♦ 


store it 


C267 27 


EF 




beq 


do*ri4 






CIW 5F 






clrb 






C269 BD 


D€J8 




)*r 


dseek 


seek track 




CIDI E3 


5C 




addd 


• M,u 


find start valuf 


C26C ID 


DEI6 




J«r 


dverfy 


verify it 




CID3 ED 


61 




std 


,»♦♦ 


savf start addrfss 


C26F 27 


Fi 




beq 


do#ri6 






CIW A6 


% 




Id* 


-••2,u 


qtt sector 


an m 


5F 


do«ri8 


dec 


-••l f u 






C1D7 4C 






me* 




take ne<t loqical nueoer 


C773 27 


El 




beq 


do*ri3 


retry 




C1DB A| 


A4 




Clfl 


•y 


check for «ax sector 


C275 A6 


C4 




Ida 


iU 


9et track 




CI DA 23 


12 




Ms 


set i*2 




C277 E6 


A4 




Idb 


a 


qet sector 




CiOC 86 


fl 




Ida 


mi 


rfsft to first 


C27^ AE 


21 




Idi 


••i,y 


9et buffer address 




CtOfc A7 


5C 


se«i? 


sU 


*M2,U 


savf sector 


C27B ID 


0£« 




JV 


d«ritt 


renrite the sector 




C1EI A| 


4] 




capa 


tfl.u 


check for complete track 


C27E 27 


E3 




beq 


d<*rt7 






ClK 26 


E6 




bnf 


SetffU 




C28t 21 


EF 




bra 


do«n8 






CIE4 6F 


64 




dr 


.« 


Mirk fnd - null 






t 










CIE6 A6 


41 




Ida 


••l,u 


qft start sector 


C282 8E 


CB4# 


qetsir 


Idi 


Isysfcb 


read sir 




CIEB AB 


y 




*dd* 


-♦•l,u 


add to constant 


C2BS E7 


13 




stb 


•I3,i 






CIEA Al 


A4 




cap* 


• y 




C2B7 CC 


•113 




Idd 


HIM3 


tract 1 sector 3 




C1EC 23 


12 




bit 


setie.3 




C28A ED 


88 IE 




std 


• le t i 






CIEE Al 


A4 




tuba 


,y 




C2BD 86 


•f 




Ida 


•••? 


tirtqlf sector read 




C1FI A7 


4] 


seti«3 


sta 


Ml.u 


reset rb on null 


C28F A7 


84 




ita 


»■ 






C1F? 32 


C4 




le*S 


r« 


restore itack 


C291 7E 


0416 




JiP 


fas 






C!F4 35 


F6 




pull 


pe,u,y,i 


,b,i 






1 














1 








€294 BE 


C84I 


dr^sfl 


Idi 


isysfcb 


select drive 




C1F6 34 


76 


doread 


pshs 


UiYtU.br 


a rtad a trick 


C217 E7 


•3 




stb 


•I3,i 






CIFB 33 


E4 




leau 


t* 




Cr«r? 7E 


D€K 




J«f 


drive 






CIFA 86 


K 




Id* 


Mfc 


■ai retries 






1 










CIFC $4 


f2 




pshs 


1 




C29C A6 


8* 


tovfiy 


Ida 


,!♦ 


Mve b bytes fros 1 to 


y 


C1FE IF 


12 




Iff 


«i7 




C29E A7 


AP 




st a 


.y* 






C2M 2f 


f2 




bra 


dort*2 




C2AISA 






decb 








C2I2 31 


23 


dor e*l 


leay 


113. y 




C2A] 26 


F? 




brie 


tovex y 






C2M A6 


C4 


dorea2 


Id* 


|U 


qet track 


C2A3 39 






rts 








C2*6 17 


NAF 




lbsr 


displ* 


display track 






I 










C2n E6 


A4 




tdb 


«y 


qet sector 


C2A4 34 


•6 


lookup 


pshs 


b,a 


find an lector m tabl 


e 


C?#B 27 


IB 




beq 


dorta3 




C2A6 BE 


C32D 




\tt 


Itabtop 


point to table 




C2» At 


21 




Idi 


Ml.y 


qet buffer address 


C2A7 A6 


81 




Ida 


♦ ** 


qet sf:e 




C2IF to 


OEM 




J5r 


dr**d 


read tht sector 


C2AB El 


64 


lookul 


cipb 


,* 


check sector count 




C212 27 


EE 




beq 


dort*] 




C2AD 27 


•7 




beq 


looku2 






C214 BE 


C84I 




Idi 


Isysfcb 


error retry 


C2AF 3f 


16 




leai 


••6.1 






C217 f6 


C5BA 




Idb 


sredrv 




C28I 4A 






dec* 








C21A E7 


13 




stb 


•I3n 




C2B2 26 


F7 




one 


lookul 






C2JC BO 


DW 




JV 


drest 


restore 


C284 \Z 


FB 




indec 


Mfb 


force error 




C21F 6A 


5f 




dec 


•flrU 




C2B6 35 


86 


looku2 


puis 


pc,b,a 






C221 26 


El 




bnv 


dore*2 


retry 






1 










C22J 1A 


f2 




orcc 


IM2 


set error 


C2B8 Bl 


C5BD 


displ* 


cepa 


lastrV 


display track nueoer 




C225 32 


C4 


dofti3 


If 41 


|U 




C2BB 27 


12 




beq 


disoli 






C227 35 


F6 


r 


pull 


Pt.UiY.jt 


,b,a 


C2B0 34 
C2BF B7 


76 
C5B0 




pshs 
sta 


d,u,x,y 
laitrk 
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C2C2 8E 


C5BD 




Id* 


llastrfc 


point to trick 


C2C5 BO 


CD3C 




)*r 


outhex 


display track 


C2C8 66 


ID 




Id* 


Hid 


cr 


C2CA 6D 


CDIF 




jsr 


outch 




C2CD 35 


76 




puis 


d,u,x,y 




C2CF 39 




displri 

1 
putqet 


rts 






C2DI BD 


CDIE 


jsr 


pstrng 


display and tail for input 


C203 6D 


CDIS 




)sr 


getchr 




C2D6 B1 


13 




dp* 


1*13 


chpck for abort 


'C208 1127 H43 




lbeq 


p abort 




C2D€ 64 


5f 




it\6i 


If5f 




C20€ 61 


59 




ce-pa 


l*5<J 




C2EI 39 




* 
psourc 


rts 






C2E1 70 


C5BE 


1st 


sinqle 


insert source disk 


C2E4 26 


14 




bne 


p sours 




C2E6 34 


76 




pshs 


d,u,x,y 




C2EB 8E 


C52I 




Ids 


•Isourc 




C2EB_BC 


C5B4 




ClpX 


liSftSG. 




C2EE 27 


15 




btq 


ptoOrd 




C2FI BF 


C5B4 




*ti 


lattsq 




C2F3 6D 


DB 




bsr 


putgtt 




C2F5 B* 


CD24 


psourd 


jsr 


pcrlf 




C2FB 35 


76 




puis 


d,u.x,y 




C2FA 39 




psouri 

1 

ptarqe 


rts 






C2FB 7D 


C5BE 


tst 


single 


insert target disk 


C2FE 26 


14 




bn« 


ptarq* 




C3H 34 


76 




pshs 


d,U,K,Y 




C3I2 BE 


C546 




Id, 


lltarge 




C3I5 BC 


C5B4 




cap it 


lasasq 




C3IB 27 


15 




beg 


ptargd 




C3IA BF 


C5B4 




sti 


lastsg 




C3ID 6D 


CI 




bsr 


putqet 




C3IF BD 


CD24 


ptargd 


jsr 


pcrlf 




C312 35 


76 




puis 


d.u,x,y 




C314 39 




ptarg* 

t 

pftrrd 


rts 






CMS BE 


C49A 


Idx 


IHerrd 


iessaqe output routines 


C3lfi 2f 


•D 




bra 


cuts 




C31A 6E 


C4BF 


pfer«t 


Idx 


flferwt 




C31D 21 


#8 




bra 


ruts 




C31F 6E 


C56F 


pabcrt 


Idx 


11 abort 




C3K 21 


43 




bra 


exits 




C524 BE 


C4E4 


pbdvol 

1 
ents 


Idx 


llbdvol 




C327 6D 


CDIE 


)V 


pstrng 


print error and ent 


C32A ?E 


CDI3 


1 
libtop 


to 


tans 




CJ2D IA 




fcb 


Ha 


nueber of entries in table 


C32E IA IB 




fcb 


lla.HB 


sectors, fonat constant 


CJ3I C442 






fdb 


tab5» 


tr«k = 1 


C332 C442 






Idb 


tab5ss 


track ) 1 


C334 If #3 




fcb 


Hf,H3 




C336 C36A 






fdb 


tabBss 




C338 C36A 






fdb 


tabBss 




C33A 12 12 




fcb 


112,112 




C33C C44? 






fdb 


tab5ss 




C33E C44P 






fdb 


tabSsd 




C3H 14 17 




fcb 


114,117 




C342 C46P 






fdb 


tib5ds 




C344 C46I 






fdb 


tab5ds 




C34fc IA 14 




fcb 


tl4,U4 




C348 C36* 






fdb 


tabBss 




C34A C399 






fdb 


tabBsd 




C34C io \: 


i 




fcb 


lid, 112 




C34E C36A 






fdb 


tabBss 




C35I C3B4 






fdb 


tabBse 




C352 IE 13 




ftb 


lie, 113 




C354 C37A 






fdb 


tabSds 




C356 C37A 






fdb 


tafaBds 




C35B 24 12 






fcb 


•24.102 




C35A C46B 






fdb 


ta»5ds 





C35t C475 




fdb 


tab5dd 


C35E 34 B4 




fcb 


•34,114 


C36* C37A 




fdb 


tabSds 


C36? C3D2 




fdb 


tabBdd 


C364 3A 21 




fcb 


13a, 12* 


C366 C37A 




fdb 


tabBds 


C36B C4I7 


1 

1 inter 


fdb 


tabBde 




lace tables 




t first eleient of each table is nuiber 




t of 


sec to 


'% per track 




1 remainder of each table is sectors in 




1 interlace order 




1 last 


three 


characters of table na«e: 




1 sue, sides, and density, respectively 

i 


C36A IF |] 16 IB 


tabBss 


fcb 


Hf,Hl,H6,llb,H4,H9,He,H2 


C372 17 IC §5 IA 




fcb 


H7,Hc,H5, Ha, llf, 113, 118, l« 


C37A IE It 16 IB 


tabids 


fcb 


lle,Hl,H6,Hb,H4,H9,lle,H2 


C3B2 17 IC 15 IA 




fcb 


H7,llc,H5,Ha,Hf,H3,HB,Hd 


C3BA 17 IC 11 15 




fcb 


117, lie, III, 115,11a. 113,118, lid 


C392 11 16 IB 14 




fcb 


«n,U6,llb, 114,119, Ile,ll2 


C399 (A II IE It 


tabBsd 


fcb 


11a, HI, He,H9, 116,114,111, He 


C3AI 19 17 14 12 




fcb 


• l9,H7,ll4,H2,llf,lla,ll7,H5 


C3A9 12 ID I A IB 




fcb 


112, lid, 11a, 116, 115,113, 111, lib 


C3BI IB 16 13 




fcb 


118,116,113 


C3B4 ID II 16 IB 


tabBse 


fcb 


lld,lll,H6,Hb,lll,ll5,lla,H2 


C3BC 17 IC 11 16 




fcb 


117, He. Ill, 116, lib, HZ, 118, Hd 


C3C4 12 17 IC 14 




fcb 


• 12, I17 t llc, 114, !#9,lle, 113,118 


C3CC 10 15 IA IF 




fcb 


lld,H5,lla,Hf,U4,ll9 


C3D2 34 11 IE 19 


tabBdd 


fcb 


134,111,1ft*, 119,116,114, 111, He 


C3DA 19 17 14 12 




fcb 


ll9 l H7 r ii4,H^Hf l lla,ll7,JI5 


C3E2 12 ID IA IB 




fcb 


H2,IH,l1a,H8il]5,H3,lll,Hb 


C3EA 18 16 13 2D 




fcb 


IIB t H6,ll3,l2d,llb,l28,l23,l3l 


C3F2 IE 2B 26 33 




fcb 


•JM2b, 126,133,121, •2e,llc,l29 


C3FA 24 31 IF 2C 




fcb 


•24,131, llf, 12c, 127, 134, 122,12* 


C4I2 ID 2A 25 32 




fcb 


•Id, 12a, 125, 132,121 


C4B7 3A 11 16 IB 


tabBde 


fcb 


l3a,Hl,H6,Hb,UM15,Ma,H2 


C4IF 17 IC U 16 




fcb 


H7,«lc,W1,«16,«lb,H3,HB.Hd 


C417 2f 34 39 21 




fcb 


12f, 134, 139, 121, 126,12b, 131, 135 


C4|f 3A 22 27 2C 




fcb 


13a, 122,127. 12c, 131,436 ,.112,417 


C427 IC B4 19 IE 




fcb 


lie, 114, H9,He, 113, MB, lid, 115 


C42F IA IF 14 19 




fcb 


Ha,Hf,ll4,ll9 T lle,l23,l28,l2d 


C437 32 37 IF 24 




fcb 


132,137, llf, 124, 129, I2e, 133, 138 


E43f 21 25 7A 




fcb 


I?l,l25,l2a 


C442 IA 11 14 12 


tabSss 


fcb 


Ha l HI,H4,H2,HS,H3,H6,H9 


C44A 17 IA 18 




fcb 


117, Haw H8 


C44D 12 B1 17 ID 


tabSsd 


fcb 


• l2,Hl,H7,«ld,H2,H8,He,H3 


C455 1? IF 14 IA 




fcb 


H9,llf,H4,m,lll,H5,Hb,lll 


C45D 16 IC 12 




fcb 


l|6, He, 112 


C46I 14 11 14 12 


tabSds 


fcb 


•14, III, 114, 112, 115,113, 112, 111 


C468 13 11 14 16 




fcb 


• 13,WM14,H6,H9,H7,Ha,HB 


C47I IB IE IC i^ 




fcb 


Hb,«le,Hc,Hf,Hd 


C475 24 II 17 ID 


tab5dd 


fcb 


•24,Hl,H7,«ld,H2,H8,He l H3 


C47D 19 IF 16 IC 




fcb 


H9,Hf r «16,«lc,«22,U7,«ld,«23 


C485 18 IE 24 14 




fcb 


118, lie, 124, 114, Ha, III, 115, lib 


C48D 11 16 IC 12 




fcb 


111, 116, He, 112, 119, llf, 113,11a 


C*95 21 14 IB 21 


1 

Iferrd 


fcb 


121, 114, lib, 121,115 


C49A 2D 20 21 66 


fee 


■-- fatal error reading source disk ' 


C4BD 17 14 




fcb 


117,114 


C4BF 20 20 21 66 


iferirt 


fee 


'-- fatal wrror witmg tarqet disfc 1 


C4E2 17 14 




fcb 


117,114 


C4E4 20 20 21 75 


lbdvol 


fee 


•— unable to restore systei id ' 


C5I3 72 65 63 6F 




fee 


•record 1 " 


C5IA 17 14 




fcb 


117,114 


C5#C 2D 20 21 6D 


Icotpl 


fee 


•— iirror coiplete'* 


C5IF 17 14 




fcb 


117,114 


C521 20 20 21 69 


I sou re 


fee 


•— insert source disk and hit a key, 


C546 17 14 




fcb 


117,114 


C548 20 20 21 69 


1 targe 


fee 


*-- insert target disk and hit a ley, 


C56D 17 14 




fcb 


117,114 


C56F 20 2D 21 6D 


labort 


fee 


'-- iirror aborted!* 


C581 ID IA 




fcb 


Hd,lla 
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C5U 20 2D 2f 74 




fee 


•_ 


CSM 17 M 


i 

tabptr 


fcb 


il 


CSAA 


rib 


4 


C5AE 


srctks 


rib 


2 


C5W 


trqtks 


fib 


2 


C5B2 


locUb 


rib 


2 


C5B4 


lasisq 


rib 


2 


C5B6 


countr 


rib 


1 


C5B7 


trkf it 


fib 


1 


CSB8 


u*lri 


ret 


; 


C5B9 


941191 


rib 


i 


C5BA 


srcdrv 


rib 


1 


C5BB 


trqdrv 


rib 


1 


C5BC 


*erflq 


rib 


\ 


C5BD 


tastrk 


rib 


i 


CSBf 


sinqle 


rib 


1 


C5BF 


idbuff 

1 

buffer 


rib 


15 


mi 


equ 


5*. 




1 







tarqet disk ihoukd be reforiatted' 



if MM 



locil variables 



sir bold area 



beginning 



of buffer 



end 



start 



E*:ROfl<S) DETECTED 



I 

I flei 
1 

flei 

1 
tinbuf 


systei defined entry points 


and equates 


equ 


Ictll 




equ 


ft 16* 


line buffer 


cidadr 


equ 


IclW 


utility conand space fl.5 k! 


cidend 


equ 


lc7M 


utility couand space end 


sysfcb 

1 

1 qlofa 
1 


equ 


tcB40 


systei feb address 


*[ values 


specified by ttyset 


and asn 


bspchr 


equ 


tcc0* 


backspace character 


delchr 


equ 


IceBl 


delete character 


eolchr 


equ 


lce#2 


end of line character 


depth 


equ 


Icc03 


depth count 


Kidth 


equ 


tccM 


mdth count 


nulls 


equ 


IccIS 


null count 


taochr 


equ 


•cc«6 


lab character 


bsechr 


equ 


tcc*7 


backspace echo character 


pause 


equ 


tcc#9 


pause control byte 


escchr 


equ 


Iccia 


escape character 


s.drn 


equ 


Icclb 


systei drive nuiber 


i_drn 

l" 

1 flu 

1 


equ 


Icclc 


•orhng drive nuiber 


systei global variables 




sysflq 


equ 


tccld 


use systei drive flaq 


sysdate 


equ 


Iccle 


date reqisters 


Isttn 


equ 


ken 


last teriinatof character 


cbufpt 


equ 


Ice 14 


line buffer pointer 


escret 


equ 


Ice 16 


escape return reqister 


curchr 


equ 


tec Id 


current nictch character 


prevch 


equ 


tcc!9 


previous mtch character 


curlct 


equ 


tccld 


current line count 


loadao 


equ 


Icclb 


loader address offset data 


ifrffq 


equ 


tccld 


transler address flaq 


ifradr 


equ 


Iccle 


transter address of loaded file 


outsit 


equ 


Icc22 


output snitch 


inset 


equ 


Icc23 


input switch 


docidf 


equ 


Icc28 


docid entry flaq 


curcol 


equ 


tcc29 


current output coluin 


■eiend 


equ 


tec 2b 


end of eeiery address 


cputype 


equ 


Icc33 


cpu type flaq 


retadr 


equ 


•cc« 


doced return address 


ulcflaq 


equ 


Icc49 


upper/lour case lap flaq 


proipt 

1 

1 cpu I 


equ 


Icc4e 


pointer to proipt strinq 


type flaq bit definitions 





I 

cpu^2ihi equ 110IIH00 I => 2 ihr cpu dock rate 

cpu^sloi equ 10100IH0 I •> aeiory stretch active 

cpu_5#hi equ ?0010000# I => 50 hr poeer line frequency 

cpu.raif equ Z0001I000 I »> cpu rat is available 

cpu^rtck equ 100I01HI I •> 6819 real tiie clock avail 

cpu.tobx equ 100000110 I => i/o set up like old box 

cp/tiae equ 10000H10 I => 6840 titer available 

cpu_*iei equ 100000001 I •> extended itiory is used 



t printer driver interface addresses 
I 



ptj-ap 

pLlen 

pt_dev 

pinit 

pteri 

pebk 

pout 

prcflq 

t 

I flei systei 

t 



equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 



colds 
Mr is 

renter 

inch 

outch 

qetchr 

putchr 

mbuff 

pstrnq 

class 

ptrH 

nxtch 

qetfil 

load 
seteit 

out dec 

outhex 

rpterr 

qethei 

outadr 

indec 

doc id 

status 

t 

S 1 

t 

intap 

duiiy 

setirq 

clrirq 

iinch 

t_off 

t^on 

t.init 

timt 

tcheck 

toutch 

tinche 

I 

I file 

I 

fiscls 

fis 

febase 

verify 

surtab 

I 

fcblen 

t 

I disk 

t 



equ 
equ 
equ 
equ 
equ 
*qu 
equ 
equ 
equ 
equ 
equ 
equ 
equ 

equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 



Icc35 
Icc37 
Icc39 
Icccl 
Iced* 
tetdfi 
Icce4 
Iccfc 

defined entry vectors 

ted 00 
tcd#3 
lcd#6 
Icdl9 
Icdlf 
IcdlS 
IcdlB 
tcdlb 
Icdle 
tcd?l 
lcd?4 
Icd27 
tcd?d 

Icd30 
tcd33 
IcdJ? 
Icd3c 
Icd3f 
Icd42 
Icd45 
Icd48 
tedtb 
Icd4e 



printer reserved area pointer 
printer reserved area ienqtb 
printer device address 
printer initialize vector 
printer close vector 
printer ready check vector 
printer character output eodute 
active spooltnq process flaq 



flex cold start address 
flex van start address 
re-enter flei processinq 
input character (lo« level! 
output character (low level) 
input character routine 
output character routine 
input line buffer 
print strinq 
classify character 
print cr/lf sequence 
qet next character froi input 
scan file spec address 

load file entry point 

set up file eitension 

output decnal nuiber 

output heiadeciial nuiber 

i/o error abort routine 

qet hexideciial specification 

output bexadeciial address 

qet denial nuiber 

docid entry address 

check ternnal input status 



on level ternnal and interrupt control addresses 



equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 



td3de 
Id3e0 
Id3el 
Id3e3 
Id3e5 
IdJed 
Id3ef 
Id3fl 
Id3f5 
Id3f7 
Id3f9 
Id3fb 



vector for input tap routine 
duiiy rts instruction for ri 
set irq process vector 
clear irq process vector 
Iwlevef ten input «/o echo 
titer off routine address 
hier on routine address 
tiier initialise routine addr 
low-level terunal initialize 
lon*Ievel terimtl check addr 
lov-teve) ternnal output addr 
Ion-level teriinal input 4 echo 



■anaqeient systei entry points 

equ Id403 

equ Id4l6 

equ Id409 

equ Id435 

equ td436 



equ 256^64 

driver entry points 



close up all tiles entry 
tile lanaqer eiec call 
file control block base 
fis verify flaq 
fis surnate table 

file control block lenqth 



28 



'68' Mnrro Journal 



drrld 


tqu 


IdtM 


read tettor routine 


d«< itt 


equ 


tde»3 


urite sector routine 


dvtrfy 


equ 


MH6 


verify routine 


dreit 


equ 


ldM9 


drive ret tore routine 


drivt 


tqu 


Idefc 


drive (elect routine 


dchtct 


rqu 


tdtPf 


check drive ready 


dquick 


rqu 


idtt? 


quick check drive ready 


dsttk 

1 


tqv 


Idflb 


drive *eefc-to-sector routi 



SUUD YOUR OWN f AT MAC 



c) Remove the five screws holding the case together (2 
under the handle. 2 at the bottom of the back at Ihe ends of 
the connectors, and one under the battery cover) Place the 
computer face down on a padded surface and remove the rear 
cover It fits tightly and will need some persuading Careful 
prying in the crack, jerking the rear cover, etc , to separate 
it. Once the rear cover is off you wilt see the board which 
fits parallel to the bottom of the case, this is the Computer 
Board Remove it by disconnecting the two connectors (one 
to the disc, the other to the vertical board) and slide the 
board to the rear. 



by 

Mike Wolf 

3195 Arizona 
Los Alamos. NM 87544 

I guess the big news is that I'm writing this on my FAT 
(lac. I just upgraded to 512K There were no unexpected 
problems and the software I have tried so far seems to work 
OK and takes advantage of the added RAM. I can dimension a 
array of 45.000 double precision numbers in Microsoft Basic. 
Or, I can type a article of 100 pages or so In MacWrite (this 
is a calculated number. J haven't had time to write that 
much). More good news is that the RAMs have just taken a 
plunge in price, so the cost isn't completely out of reason. 

Now for tht bid niws. This is not a job for the 
novice hardware hacker as it requires unsoldering 16 ICs 
from a 4-layer PCB. It also, of course, negates any 
warranty, and probably will make it difficult to get service 
through normal channels. However, for those of you who 
know no fear, here's how to do it 

This procedure is for the Original Board. It is my 
understanding that Apple has a new board out for tht Fat Mac 
which will be installed In the 12BK Macs when present stocks 
are depleted i have not seen one. but I understand that you 
will only have to replace the RAMs in the new board 

a) You will need the following tools: A*S torklok 
screwdriver long enough to reach the screws under the 
handle. A conventional screwdriver can be modified for this 
task by grinding the blade to fit in the splines of the screws. 
A temperature controlled soldering iron with a fine tip 
suitable for high density printed circuit work. A good quality 
desoldering tool such as a Sotduvac. Don't scrimp on the 
de soldering setup! A ruined board is a pretty expensive way 
to learn. 

b) You will need the following parts: 16 256K Dynamic 
RAMS (41256 type), a small piece of perf board large enough 
to hold 1 16 pin IC, a 7 pin strip of right angle header (more 
about this later), a bypass capicator (.01 to A micro farad 
caramic). 1 74I.S253 IC. and 17 Top quality tC sockets. 
Donl scrimp on these sockats. Usa the machined pin type 
that cost about $ 1 apieca I have used both Hitachi and NEC 
RAMs for this conversion; the Hitachi part <*grl»r is 
HM50256-20. the NEC number is 041256-20. I see no 
reason that other parts of this type shouldn't work also. 
200nS parts are fast enooj*. 



d) Set the computer aside and examine the board Along 
the front center of the board is the RAM chips in 2 rows of 8 
ICs each. On the left end of the CPU is a row of 7 solder 
Oiled holes. Once you have identified these items, get out 
your desoldering equipment and go to work. Clean the solder 
out of the 7 holes, and desolder and remove the 16 RAM 
chips. Be careful!! Clean the board carefully to remove 
Hecks of solder that might cause shorts, and examine it 
(preferrabilly with a magnifier) to insure that no traces have 
been broken If they have, repair them with stripped 
wire-wrap wire. Then Install 16 sockets in the RAM 
locations, and install the new RAM chips in the sockets 

a) Construct the multiplexer as shown in the illustrations, 
wiring it as shown. Cut the trace beween the square padded 
hole (pin 1) and the second hole of the row of holes you just 
cleaned, out and install the multiplexer in place The board 
should sit vertical to the computer board. Check your work 
twice: ere the ICs firmly in the sockets with no bent pins 7 (s 
Pin * 1 to the front of the board? Clean the flux off with a 
solvent end old toothbrush. Check for shorts. When you are 
satisfied, reinsert the board into the case and raconnect the 
cables. Plug it in and turn it on. If you get the usual beep 
and sign-on. followed by the no-disc Icon, all is well. Insert 
a boot disc and check It out. If you have Microsoft BASIC. 
run it and try "?fra(0)* you should get 374000 or so. Run 
some other stuff to check it out, and then close (t up. YouVe 
just saved enough to buy a second disc drivel! 




'^'sj'erf ftoard 



Socket 



Bypass Capicrtor 



I II I Ml ;_-7pin right angle header 




Pin I 
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qJJ 



-J ■ 



cut 



•— 



74LS253 



.0 



to nam pci 



FLEX 2/9 CATALOG UTILITY 



The assembled listing Is pretty much self 
documenting and shout d be falrfy easy to make any 
changes as far as password, option codes, and 
default conditions- 



CONCLUSION 

Be f I eve It or not, this utility started out as an 
experiment with the FLEX documented subroutines and 
Just snowballed , after a month, Into Its present 
form. It sure has been on experience and I enjoyed 
It lnmeasurably. 

I've been a subscriber to '68 since day one, and 
I'm glad to finally contribute something. 



NAM CAT.CMD 

CAT.CHD UTILITY (ENHANCED VERS I ON) 

0ONAL0 GOULETTE 
BOX m* 

FABENS, TEXAS Y9B38 
(91 5) -764-3607 
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FLEX 2/9 CATALOG UTILITY (CAT.OD) 

DOJALD E- GOULETTE 
BOX 1153 

FABENS, TEXAS 79838 
PHONE 915-764-3607 

This article describes an enhancement of the old 
TSC FLEX 2.0 CAT.OD utility. This new version 
should be usable for both FLEX 2 and 9 systems. I 
can only vouch for my FLEX 2 configuration. I 
bought my SW6800 back In the days before the Earth 
cooled, and have put several thousand hours Into 
software development for It. The following listing 
Is the result of finally sitting down and doing 
something about the limitations of the old CAT.CHD. 

CAT.OD Is pretty much compatible with the syntax 
of the old CAT.OD utility. The main difference 
being that the input line parameters are ALL tested 
for syntax first; redundant options and match lists 
are Ignored; and drive numbers, options and match 
lists can be entered In any order. 

New features are listing of catalog protected 
files, de feted files, and two forms of printout. 



Listing of catalog protected files ('P' option) 
Is assessed by using a 3 character password 
(optional) for those flies that you have misplaced. tw>Lamat ion of options t 



♦SYNTAX FOR ■CAT.CMD': 

I . ♦♦♦CAT 

2- ♦♦♦CAT ♦€ 1 tO 

3. *~CAT ♦€P00O .SYS P.CMD A 

Ar ♦♦♦CAT 0,.TXT.*C5.1.+PI30G 

5. ♦►♦♦CAT *CO 

►6. ♦♦♦ AT .CM) ♦0C5POOGE 1 ,CND OOPY.CMD 

*LI« 1: CAT WORKING ORIVE (ALL PILES) OR BOTH DRIVES 

tF WORKING ORIVE + AUTO. (LISTED tN SHORT FORM) 

LIME 2: AT, IN EXPANDED FORM. DRIVES AND 1 AND THERE 
DELETED FILES. 

LINE 3: CAT, EXPANDED FORM. DRIVE 0. ALL FILES WITH 
,SYS EXTENSION (ALSO CAT PROTECTED, IF ANY), 
ANY FfLE THAT STARTS WITH *P' AND ALSO A ».C»» 
EXTENSION (ALSO CAT PROTECTED, IF ANY), AND 
ANY TILE STARTING WITH AN 'A* (ALSO CAT PRO- 
TE TED, IF ANY). 

LINE 4: CAT.OftfYE AND 1 . AIL *.T*T' FILES (ALSO 
AT PROTECTED. IF ANY), IN SHORT FORMAT. 5 
COLUMNS WIDE. 
SPACES AND COWAS ARE I MERCHANTABLE. 

LINE 5: CAT ORIVE (ALL FfLES) IN THE OLD CAT, CMP 
FORMAT. 

LtXE 6: CAT. DRIVES AND t . ALL FILES WITH A ».CMD' 
EXTENSION AND ALSO ALL , *CMD' CAT PROTECTED 
AND DELETED FILES, IF ANY, { EXPANDED FORM! 
WOTE: THE 2WD *CMD INSTRUCTION IN THE LINE 
AND THE COPY-CHD ARE REDUNDANT AND ARE rGNORED. 
ALSO, THE 'E' IN THE OPTION LINE INHIBITS THE 
*CV OPTION REQUEST f SHORT FORM ONLY) P 



Listing of deleted files CD* option) Is handy 
when you have Inadvertently (like 2:00 In the A.M.) 
deleted a file by mistake (but not over written) and 
you use some sort of disk recovery utility in 
conjunction with CAT.CMD, such as the DISKSAVE.OD 
utility. 

The short form of printout (default) Is Ideal to 
view all the file names on one page, when your only 
concern is the presence of the names and there 
extensions. The listing can be as many as 9 names 
wide PC* option) or as few as K A special *C0' 
option will Mst In the old FLEX CAT.OD format. 

The expanded form CE' option) will list the file 
number, drive number the file was found on r file 
name, file extension, file protection (If any), file 
start track-sector, and file end track-sector (again 
used in conjunction with a disk recovery utility). 



•PREFIX ALL OPTIONS WITH "0PTCMR". IN TVtS CASE *♦*. 
•OPTION MAY BE ENTERBO INDIVIDUALLY OR TOGETHER WITH OTHERS. 

•EX: ♦OEPDOG or *0 ♦£ ♦POOS 



•OPTION "D«: LIST A DELETED FILE IF ALL OTHE* ORIVE. MATCH 

• CONDITIONS HAVE SCEN NET. 

•EXr ♦♦♦CAT +0 .CMD 

•(DELETED FILE XYZ.TXT WOULD NOT BE LISTED BUT DELETED FILE 

•XY2.CMD WOULD BE). 

•NOTE! A DELETED FILE WILL NAVE A ♦?* INSERTED AT THE START 
♦OF THE FILE NAME (THE FIRST LETTER OF THE NAME OF A DELETED 
♦FILE IS UNKNOWN BECAUSE FLEX RE*\ACES IT WITH A IFF). 

•OPTION *>•: LIST A CAT PH01ECTED FILE tF ALL 01HER ORIVE, 

• NATO* CONDITIONS HAVE BEEN MET. 

•EX: ♦♦♦CAT ♦PDOB .SYS 

•{CAT PROTECTED FJLE ABC.CMD WOULD NOT BE LISTED, BUT 

•CAT PR01ECTED FILE ABC.SYS WOULD BE). 

•NOTE: FOLLOWING THE 'P' OPTION. A 3 ALPHA-NUNERtC C00€ MUST 

• BE INSERTED. IF AN INCORRECT 3 PART CODE OR NONE. A 
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SYNTAX EWW WILL BE ISSUED. 

CHAMGE THE STRING AT LABEL 'KEY* F OR ANOTHER PASSWORD, 
CHANGE TNT E00 AT LABEL 'PASS' TO 'N' TO DEFEAT THE 
PASSWORD FEAHJRE. 



•OPTION *E*: 



CAT IN THE EXPANDED FORM (If NOT USED. DEFAULT 
TO THE SHORT FQRM1 . 



•EX: ♦♦♦CAT .CH> ♦€ 

•fPRlHT ALL WORKING ORIVE .CH) TILES IN EXPANDED FORM). 

•EXPANDED FORM PRINTS T*€ FOLLOWING? 

•TILE NUMBER. DRIVE * OF FILE, FILE Wtf€, FILE EXTENSION, 
•COPY DATE. TILE PROTECTION IF ANY. FILE START TRAOUSECTOR. 
•FILE END TRACK -SECTOR 

• 

•S»CRT FORM IS A SHORT VERSION OF THE EXPANDED FORM. 



•OPTION *C"t SET THE COLUMN WIOTH FOR SHORT FORM rftOTH OF 

DISPLAY. {THIS OPTION IS OEFEATED IF '£' OPTION 
* IS ENABLED1. 



CHANCE THE EOU AT LABEL 
DEFAULT COLUMN COUNT. 



'CLMDFT' FOR A DIFFERENT 



•NOTE: FOLLOWING THE *C % OPTION. A NUMBER FRO* TO 9 MUST 

• BE USED OR A SYN AX ERRC* WILL BE ISSUED. 

■ *C0* IS A SPECIAL CASE, THAT WILL ENABLE THE OLD 

' CAT.CMD FORMAT. 

•DOS EQUATES 

•WITH THE FOLLOWING EQUATE. USE tAOOO tFLEX 2.0) 
•OR tCOOO (FLEX 9.0>. 

•NOTEr FLEX 9.0 SHOULD WORK BUT 1 DON'T REALLY *N0W 
•BECAUSE I'M ONLY RUNNING FLEX 2.0 



START OF FLEX 6809 

WORK DRIVE i 
LAST NON-ALPHA CNR 
LINE BUFFER PNTR 
DOS WARM START ENTRY 
PUT OHR ROUTINE 
CRLF**RNT STRING 
PRINT CR/LF 
GET NXT 8UF CM? 
OUTPUT A OEC ' 
REPORT OIS* ERROR 
OUTPUT hCX AOQR 



•SYSTEM EQUATES 
CB40 FCB ECU FLEX»S840 FILE CONTROL BLOCK 

•CHAJKZ THE FOLLOWING EQUATE TO ANY OF THESE: !#i*l»*- 
002B OPTCMR EQU '♦ OPTION LEAD IN CHR 

•CHANCE THE FOLLOWING 4 EQUATES TO ANY OF THESE: A tt> 2 



cooo 


FLEX 


EOU 


1CO0O 


CCOC 


NRKDRY 


EQU 


FLEX»lCOC 


ecu 


Lsrn* 


EQU 


FLEX«1C11 1 


ecu 


IBPNTR 


EQU 


FLEX»tC14 ! 


C003 


HARMS 


EQU 


FLEX«S003 J 


CDI8 


POTCNR 


EQU 


FLEX*S018 1 


C01E 


PMSG 


EOU 


FLEX'SOIE ( 


C024 


PCRLF 


EQU 


FLEX*S0?4 l 


C027 


KXTCH 


EQU 


PLEX*|027 1 


CD39 


OUTTJEC 


EQU 


FlEX»1039 1 


coy 


RPTERR 


EQU 


FLEX-I03F < 


a** 


OUT ADR 


EOU 


FLEX»I045 1 




•FNS EQUATES 




D403 


FNsas 


EOU 


FLEXM1403 


0406 


FMS 


EQU 


FLEX*I1406 



0D45 EKPCHR EQU 

0044 DRCHR EQU 

OOSO PROCHR EQU 

0043 aMCHR EQU 



•E EXPANDEO MODE 

♦0 PRINT DELETED FILES 

•P PRINT CAT PROT FILES 

■C SHORT FORM aM CNT 



•IF THE PASSWORD HECH AH ISM IS NOT WANTED THEN W(£ 
•THE FOLLOWING EQUATE AN «N': 



0059 PASS 



EQU 



PASSWORD MECH FLAG 



♦THE FOLLOWING IS THE 3 PART PASSWARD. USE ONVV ALPHA 
•NUMERICAL CHARACTERS. EX: CAT XYZ 007 GK2 



0044 NEy EQU 

004F KEY1 EOU 

0047 *EY? EOU 



•IF VOU SO DESIRE. VOU HAY 

•CHANGE THE FOLLOWING SNORT FOR* DEFAULT CLK CNT: D to 9 
•IF ZERO <0> IS USED THE* THE OLD STfLE CAT.CMD 
•FORMAT MILL ENABLED 



0000 CXNDFT EQU 



SHC*»T FORH DEFAULT CtM ©NT 



C109 




PTRD 


PHB 


2 


STRING PNTR DESTINATION 


C108 




CLMCNT 


9MB 


1 


aN CNTR 


CIOC 




EXPFLG 


RMB 


1 


EXPAND FORM FLAG 


CIOO 




NATFLG 


RMB 


1 


HATCH FLAG 


ClOE 




AUTFG 


RMB 


1 


AUTO FLAG 


CIOF 




DEFFG 


RMB 


1 


DEFAULT H.AG 


cno 




FILCNT 


RMB 


2 


FILE CNT 


en; 




ORVFG 


RMB 


1 


ORV ENABLE FLAGS 


C1 1 3 




OELFG 


HMB 


1 


CAT DEL FILE FLAG 


CI I* 




CATFG 


RMB 


I 


CAT PROT FLAG 


cm 




aHLlH 


RMB 


1 


MAX SHORT FORM Q.H CNT 


C1 16 




OLDFG 


RMB 


1 


OLD CAT FORMAT 


CH7 




|0**>*P 


RMB 


2 


ADOR OF PNTR 


C119 




STGPTR 


RMB 


40 


MATCH PNTRS STACK 


Ct4! 7F 


CIOC 


CAfO 


CLR 


EXPFLG 


S«*T FORM NODE 


Ct44 7F 


ClOB 




O.R 


awCNT 


1N1T CtN CNTR 


CUT 7F 


CIOO 




OP 


MATTU5 


STR1 NG H*TCH FLAG 


C14A 7F 


CIOF 




aR 


OEFFG 


OCPAULT FLAG 


C'40 7F 


C1I3 




CLR 


OELFG 


CAT DEL FtLE FLAG 


CHO IF 


C1 12 




aR 


ORVFG 


aR ALL DHVS 


C1^3 ?F 


C1U 




aR 


CATFG 


CAT PROr FLAG 


C156 7F 


ClOE 




aR 


4.UTTG 


AUTO FLAG 


C159 7F 


C1I0 




aR 


FILCNT 


FILE COUNTER 


cue 7F 


cm 




CLR 


FILCNTM 




CHF 7F 


CI 16 




aR 


OLOFG 


OLO CAT FORM OFF 


CI62 R6 


FF 




LDAA 


MFF 


M ATCH STRING EOT 


C164 87 


C1 19 




STAA 


STGPTR 


INJT PT 


C167 4F 






CLRA 




ZERO 


CI68 81 


00 




CMPA 


#aMDFT 


2ER0 Htotl 


C16A 26 


07 




BNE 


OLOI 


NOT OLD FORM 


C16C 7C 


C1 16 




fNC 


Ot.OFG 


OLO CAT tow ON 


C16F B6 


01 




LOAA 


$\ 


i clm */ ao 


CI?" 20 


n; 




BRA 


OLDIA 




CI 73 86 


DO 


OLOI 


LDAA 


/CLMDFT 


0EFAULT aM CNT 


CW5 87 


CM5 


0L01A 


STAA 


an 1M 


SAVE IT 


C178 86 


CCOC 




LDAA 


rfpKDRV 


'ITCH 0EF C«V 


CI 78 81 


FF 




CMP* 


*\rr 


AUTO MODE? 


CI 70 26 


05 




BNE 


NAMDE 


NOT AIITO MODE 


CUF 86 


02 




LDAA 


n 


DO BOTH DRVS 


C18T B7 


hoe 




S"*A 


*UTrr» 




C184 86 


ecu 


NANCE 


LDAA 


tSTTRM 


LAST CMR 


C187 81 


00 




CMPA 


ISD 


CR7 


C189 26 


14 




BNE 


CATOI 


NO 


CI8B BE 


C840 




LOX 


#FC8 


PNTR 


C18E B6 


CCOC 




LOAA 


WRUDRV 


DEF WRX DRY 


C191 A7 


03 




STAA 


3,X 


SET OEF DRV 


C193 81 


FF 




CMPA 


4SFF 


AUTO MODE? 


C195 26 


05 




9NE 


CAT2V 


NO 


C197 86 


02 




LOAA 


#2 


CAT BOTH ORvS 


C199 87 


ClOE 




STAA 


AUTF6 




C19C Tf 


C220 


CAT2v 


JMP 


CAT2 


NO OPTIONS. GO 00 IT 


C19F BD 


C027 


catOi 


JSR 


NXTCH 


GET ORV 


C1A2 24 


20 




BCC 


CAT02 


Alpha numeric 


C1A4 tl 


00 


CAT0I8 


CMPA 


#100 


ALL DONE? 


C1A6 1021 


0083 




LBEO 


CAT2 


ALL DONE SCAN 


C1AA BD 


C54A 




JSR 


OPTION 


TEST FOR OPTIONS 


CTAD 25 


U 




BCS 


ERRYX 


SYNTAX ERROR 


C»AF 81 


00 




CMPA 


#10 


CRT 


C181 27 


7A 




SEC 


CAT2 


ALL DONE 5CAN 


CI83 81 


2C 


CATOTA 


CMPA 


I*. 


COMMA? 


C165 27 


E8 




BEQ 


CATOI 


OX. SKIP 


C187 81 


20 




CMPA 


/S20 


SPACE7 


C169 27 


t4 




BED 


CATOI 


OX. SKIP 


C1BB 81 


a 




CMPA 


1*. 


FXH 


C180 26 


02 




BNE 


ERRYX 


SYNTAX ERROR 


C16F 20 


IE 




BRA 


NATO 


SET FLAG 


CICT 7E 


C542 


ERRYX 


JMP 


CAT6B 


SYNTAX ERROR 


C1C4 8T 


?? 


CAT02 


CMPA 


#♦4 


TOO LARGE 


C1C4 74 




3CC 


NATO 


SET HATCH STRING 


C1C8 84 


03 




ANDA 


MOJ 


STRIP ASCII 


C1CA 4C 






INCA 




OFFSET 


CTCB 9F 






aRB 






C1CC 1A 


01 




SEC 




SET ORV BIT 


ClCE 59 




ROT 


ROLB 




ROLL IN NEW ORV 


C1CF 1C 


FE 




ac 






C101 4A 






OECA 






C102 26 


FA 




BNE 


ROT 


ROTATF, HDRE 


C104 FA 


CM2 




CRAB 


ORVFG 


MASK IN DRV ' 


ClD? F7 


CI12 




STAB 


ORVFG 


UPDATE 


CIDA 7C 


CIOF 




rNC 


DEFFG 


NO OEF ORV 


CIOO 20 


CO 




BRA 


CATOI 


«E&> SCANNING 


CIOF BE 


CCI4 


MATO 


LOX 


LBPNTR 


LINE BUFFER PNTR 


C»E2 30 


IF 




OEX 




PRESENT CHR 


>C1E4 BO 


CIFA 




JSR 


SAVPTR 


SAVE START OF STRING ADR 


CIE7 24 


03 




BCC 


MAT1 


NO ERR 


CtE9 7E 


C542 




IMP 


CAT6B 


SYNTAX ERR 


C1EC 7C 


CIOO 


HATI 


INC 


MATFLG 


MATCH FLAG ON 


C1EF BD 


CD27 


HAT1A 


JSR 


NXTCH 


FIND END OF STRING 


C1F2 24 


F8 




BCC 


MAT1A 


ANO LOCKOUT ANY STRING / 


C1F4 81 


2E 




CMPA 


$* . 


PERIOD IEKT1 7 


C1F6 27 


F7 




BEO 


MAT1A 


SKIP CXT 


C1F8 20 


AA 




BRA 


CATQ1B 


CONTINUE 



•SEARCH FOR PLACE ON STRING STACK TO PUT NEW 
•MATCH STRING POINTER... 



CIOO 



•CAT.CMD UTILITY STARTS HERE 

ORG *LEX»SIOO UTILfTY AREA 



C1Q0 20 


v 


CAT 


BRA 


CATO 


GET AROUND T^MPS 


C102 02 




VN 


FOB 


2 


version mpe&* 


CI03 




STORE 


RMB 


2 


STORAGE 


CI03 




SIZE 


RMB 


2 




CI07 




PYRS 


RMB 


2 


STRING PNTR SOUR< 



CIFA BF 


CU7 


SAVPTR 


srx 


IOXTMP 


SAVE NEW PNTR 


C1FD BE 


CU9 




LOX 


/STGPTR 


STRING VICTORS 


C200 A6 


84 


SAV1 


LDAA 


0,X 


FETCH 


C202 01 


FF 




CMPA 


'IFF 


ErO OF VECTORS 7 


€204 27 


DC 




BEO 


SAV2 


YES 


C206 30 


01 




tNX 




SEARCH FOR END 


C20B 50 


01 




INK 






C2QA BC 


CU1 




OPX 


/CATO 


TOO FART 


C200 26 


F1 




BNE 


SAVt 


NOT YET1 


C20F 1A 


01 




SEC 




ERR. OVERFLOW 
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C2M 39 






RTS 






C30B 27 


03 




BEO 


CAT4 


OX 


em m 


CH7 


SAV2 


LDAA 


I0*r*> 


FETCH 


C30A 7E 


C53C 




M> 


CAT9 


ERROR 


C2*S AT 


84 




STAA 


o.x 


SAVE «e 


C300 BE 


C840 


CAT4 


LOX 


#FCB 


RESET 


021? 30 


03 




IMC 






C310 86 


07 




LDAA 


17 


GET INFO REC 


C219 06 


CUB 




LOAA 


!0*YI4>*I 


FETCH 


C312 A7 


64 




STAA 


0,X 


GET REC 


C21C A7 


64 




STAA 


o.x 


SAVE LSB 


C3I4 BO 


040* 




JSR 


FMS 


CALL FHS - GET REC 


C21E 86 


FF 




LOAA 


t\Ff 


EOT 


C317 27 


03 




BEO 


CAT4A 


OX 


C220 30 


01 




INX 




SET NE* EOT 


C319 7E 


C333 




j*P 


CAT6 


ERRORS 


C222 A7 


B4 




STAA 


o,x 


SET 


C31C BE 


C840 


CAT4A 


LOX 


#FC8 


START OF 1NP0 


C224 BE 


CI 19 




LDX 


#SfG 1R 


1ST ADOR OF MATCH VECTOR 


C31F A6 


04 




LOAA 


4,X 


FETCH 1ST CHR 


C227 B* 


C1 1 7 




STX 


ioxtmp 


START OT VECTORS 


C32I 61 


FF 




Of»A 


#IFF 


DELETED 7 


C22A TC 


F£ 




ac 




OX 


C323 26 


09 




BNE 


CAT4C 


NOT OELETEDI 


C22C 39 






RTS 






C32* 70 
C32B 27 


C1 13 
E3 




TST 
REO 


OELFG 
CAT4 


LIST DELETED FILE7 
HO, SKIP IT 






•AT 1MIS POfNT. THE INPUT L \H£ HAS BEEN TESTEO... 


C32A 86 


3F 




LOAA 


0'1 


FTLL IN DEL CHR 














C32C A7 


04 




STAA 


4»X 


SAVE FOR LATER 


C220 BO 


C024 


CAT2 


JSR 


PCRLF 




C32E A6 


OF 


CAT4C 


LOAA 


15, X 


Al TRIBUTES 


C230 7T 


C108 




CLR 


CLMCXT 


RESET 


C3 84 


10 




ANOA 


#tio 


CAT PROTECTEOl 


C233 7f 


C1M 




aR 


FlLOfTH 


FILE CHTR 


C332 27 


05 




BEO 


NCPRT 


NOT CAT PROTECTED 


C236 70 


C112 




TST 


ORVFG 


ANY ORVS LEFT7 


C334 TO 


CI 1 4 




*V 


CATFG 


CAT PROT CPTI0N7 


C239 27 


2F 




BEO 


CAT2Z 


SKIP, 0OH£ 


C337 27 


04 




B£Q 


CAT 4 


NO. SKIP IT 


C23B 9F 






OR* 






C339 A6 


04 


NCPRT 


LOAA 


A,X 


RCFETCM 


C23C B6 


CI 12 




LDAA 


ORVFG 




C3JB 11 


00 




CNPA 


#100 


LAST ENTRY7 


C23F 04 


01 




ANOA 


#1 


DRV 07 


C330 26 


33 




SHE 


CAT46 


WAIT 


C2*T 26 


IB 




BNE 


FHOO 


YES 


C35f BO 


C024 




JSR 


PCRIF 




C243 B6 


CI 12 




LDAA 


ORVFG 




C34 2 B€ 


C6*C 




LOX 


#S7G5 


SECTORS LEFT 


C2<6 64 


02 




ANOA 


#2 


ORV 1? 


C345 60 


C01E 




JSR 


PMSG 




C248 2 


13 




BNE 


FNOI 


YES 


C348 BE 


CI05 




LOX 


#S?ZE 


SECTORS LEFT 


C24A B6 


C112 




LDAA 


ORVFG 




C34B 3F 






a.RB 




NO SPACES 


C240 9* 


04 




ANOA 


#4 


ORV 27 


C34C 60 


C039 




JSR 


OIJTOEC 




C24F 26 


08 




BNE 


FN02 


YES 


C34F BO 


C024 




JSR 


ecajF 




C23J B6 


CM2 




LDAA 


ORVFG 




C332 70 


C10F 




TST 


OEFFG 


OEFAULT MD0E7 


C2U M 


08 




ANOA 


iB 


ORV 37 


C3^ 26 


' 1 




BNE 


NCPRT 1 


HO OEFAULT ORV 


C256 26 


03 




BNE 


FN03 


YES 


C357 70 


CJOE 




TST 


AUTFG 


ALREADY 0ONE7 


C258 71 


C542 




JMP 


CAT6B 


SYNTAX ERROR 


C33A 27 


QE 




BEO 


NCPRT 1 


DONE 


C2S8 3C 




FN03 


1HC8 




SET TO CURRENT ORV # 


C33C 7A 


ClOE 




OEC 


AUTFG 


NEXT ORV (AUTO M00E1 


C2SC 5C 




FN02 


IHC8 






C35 70 


C10E 




TST 


AU1FG 


DRV 0ONE7 


C25D 5C 




FNOI 


IMCS 






C362 26 


03 




BNE 


CATOO 


NOT YET 


C23E 4 3 




FMOO 


COMA 




fNY MASK 


C364 7E 


CS39 




JMP 


CAT6A 


FLEX 


G2V B4 


CI 12 




ANDA 


ORVFG 




C367 7E 


C220 


CATOO 


•■" 


CAT 2 


AGAiN 


C2*2 B7 


CI 12 




STAA 


ORVFG 


UPOATT 


C36A 70 


C1 12 


NCPRT T 


T sr 


ORVFG 


DOME? 


C26* «£ 


CB40 




LDX 


#FC8 




C360 26 


FB 




BNE 


CATOO 


NO TETI 


C26B E7 


03 




STAB 


3,X 


SET TO CURRENT ORV $ 


C36F n 


C339 




JK> 


CAT6A 


DONE 


C26A 70 


C10F 


CAT2Z 


TST 


OEFFG 


DEFAULT 0RV7 


C372 70 


C10O 


CAT48 


TST 


MATFLG 


MATCH STRfNC7 


€260 26 


1C 




BNE 


CAT2A 


NO 


C37* 27 


67 




BEO 


«>^ 


NO MATCH STRING REOUIREO 


C6FBC 


CB40 




LDX 


#FC8 




C37T BE 


C119 




LDX 


#STGPTR 


1ST PNTR 


C272 m 


OCOC 




LDAA 


WRKORV 


CCFAULT DRV 


C37A BF 


C117 




SIX 


IDXT>#> 


RESET PNTR 


C273 A? 


03 




STAA 


3.X 


SET ORV 














C277 70 


C10€ 




TST 


AUTFG 


AUTO SEARCW 






•AT THIS POINT *£ N4JST 0<ECK THE FILE NAME 


C27A 27 


OF 




BEO 


CAT2A 


NO 






•AGAINST THE ! 


STRING IN THE INPUT BUFFER STARTING 


C27C B6 


C10E 




LDAA 


AUTFG 


DRV OR 1 






•AT THE ADDRESS CONTAINED IN LOCATION , I0XTM*> < ... 


C2TF 81 


02 




CMPA 


#2 


ORV FIRST7 














C2B1 26 


04 




BNE 


CAT2X 


NO, ORV 1 


C3T0 BE 


C844 


HAT4A 


LOX 


#FCB»4 


SOURCE COMPARE <NAME> 


C2B3 86 


00 




LDAA 


#o 


ORV 


C3B0 Bf 


cro7 




r* 


PTRS 


SAVE 


C295 70 


02 




BRA 


CAT7V 


9UF> 


C383 BE 


C117 




LOX 


ioxn*» 


ADOR OF PNTR 


C267 66 


01 


CAT2X 


LOAA 


#1 


ORV 1 


CM6 A6 


84 




LOAA 


D.X 


MSB 


C2B9 A7 


03 


CAT2Y 


STAA 


3,X 


SET ORV 


C3B8 B7 


C«09 




STAA 


PTTO 




C2BB 8€ 


C840 


CAT2A 


LM 


/FOB 




C388 A6 


01 




LOAA 


1rX 


LSB 


C26E B6 


10 




LOAA 


0VO 


OPEN SYS INFO 


C380 67 


CIOA 




STAA 


PTRO+1 




C2 A7 


64 




STAA 


o,x 


OPEN 


C390 6E 


C109 


MAT4 


LOX 


PTHO 


DEST 


C29? BO 


0406 




JSR 


FMS 




C393 A6 


64 




LOAA 


0,X 


FETCH CHR 


C 95 27 


06 




BEO 


CAT2B 




C39* B1 


2E 




CNPA 


#". 


EXT7 


C297 7E 


C142 


ERRY 


J MP 


CAT6B 


SYNTAX ERROR 


C397 27 


» 




BEO 


EXTl 


EXT TIMEI 


C29A 7€ 


CT3C 


ERRZ 


JHP 


CAT9 


FMS DISK ERROR 


C399 81 


30 




Of»A 


ro 


2ER0? 


C290 §€ 


CB40 


CAT26 


LDX 


#FC8 




C396 2* 


41 




BCS 


MAT 3 


MATCH OX 


C2A0 86 


07 




LDAA 


tft 


GET SYS INFO 


C390 IF 


B940 




TA6 




SAVE 


C2A2 A7 


84 




STAA 


o,x 
















C2M BO 


0406 




JSR 


FMS 




C3A0 30 


01 




INX 




NEXT CHR 


C2A7 26 


Ft 




SH€ 


ERRZ 


FMS ERROR 


C3A2 BF 


009 




STX 


riRu 


UPDATE 


C2A9 BE 


C6D3 




LD* 


#STGt 


HEADER 


'*" K 


CI 07 




LOX 


PTRS 


SOURCE 


C2AC BO 


C01E 




JSH 


PWSG 




C3A1 A6 


84 




LOAA 


O.X 


FETCH OOMP CHAR 


C2AF BE 


C842 




Lta 


#FC8*2 




C3AA 30 


01 




INX 




NEXT CHR 


C2B2 6F 


84 




aR 


o,x 




C3AC BF 


C107 




STX 


PTRS 


UPDATE 


C2B4 3F 






CLRB 




MO SPACES 


C3AF 34 


04 A1E0 




C8A 




SAHE7 


C2B* BO 


C039 




JSR 


OUTDEC 


PRINT ORV# 


C3B3 27 


06 




BEO 


MAT4 


MATCH-CONTINUE 


C2B8 BE 


055* 




LOX 


#STG3 


OISK# 


C369 BE 


CI17 




LOX 


IOXTNP 


SET PNTR 


C2BB BO 


COlE 




JSR 


PH5G 




C3Bfl 30 


01 




rra 




NEXT ONE 


C26E BE 


CS44 




LDX 


#FC8*4 


SYS KA>€ 


C3fiA 30 


01 




tNX 






C2Ct C6 


OB 




LOAfi 


re 


8 CKRS 


C3BC BF 


CI 17 




STX 


IDX1MO 


UPDATE 


C2C3 A6 


B4 


AGNH 


LDAA 


o,x 


FETCH CHR 


C3BF A6 


B4 




LOAA 


0,t 


FETCH 


C2C9 27 


06 




BEO 


AOGK 


DONE 


C3CI Bl 


rr 




CNPA 


#1FF 


EOT? 


C2C7 60 


core 




JSR 


PJTCMJR 




C3C3 26 


BS 




BNE 


MAT4A 


NO 


C2CA 30 


01 




IHX 






C3C3 BE 


C1 19 




LDX 


#STGPTR 


1ST PNTR 


C2CC 3A 






0€C8 






C3C8 BF 


CP 17 




STX 


IDXT34P 


RESET 


C2CD 26 


F4 




BNE 


AONM 


MORE 


C3C8 7E 


C300 




JNP 


CAT4 


NEXT FILE 


C2CF 06 


02 


AQGK 


LOAfl 


§7 




C3CE BE 


C84C 


EXT1 


LOX 


#FC8*12 


EXTENSION AREA 


C20T flO 


C9B€ 




JSR 


PSPACE 


2 SPACES 


C30) BF 


C107 




STX 


PTRS 


SAVE 


C204 B6 


23 




LOAA 


#123 


*§« 


C304 BE 


CI09 




LOX 


PTRO 


STRING PNTR 


C206 BO 


C01B 




JSR 


PUTCHR 




C307 30 


01 




INX 




SKIP OVER '.■ 


C209 BE 


C84F 




LOX 


#FCB*15 


VOLJF 


C309 8F 


C109 




STX 


PTRO 


SAVE 


C20C 5F 






CLR9 




NO SPACES 


C30C 20 


B2 




6RA 


MAT4 


oo match Exrr 


C200 BO 


C039 




JSR 


OUTDEC 




C30E 70 


cioc 


MAn 


TST 


EXPFLG 


EXP M0OE7 


C2E0 ao 


CO 2 4 




JS* 


PCRLF 




C3CT 27 


2E 




BEO 


SHT1 


SHORT MODE 


C2E3 70 


croc 




TST 


EXPFLG 


EXP MODE? 


C3€3 7C 


CI 11 




INC 


FILCNT^I 


FILE CNTR 


C2E6 27 


06 




B£0 


A0GK1 


SHOT MOOC 


C3E6 66 


C1 1 1 




LOAA 


FILCHT^I 


FETCH CNTR 


C2EB BE 


C61E 




LOX 


ISTG2 


NAME, TYPE, ECT 


C3E9 B1 


OA 




CMPA 


#10 A 


>97 


C2ES 60 


C01E 




JSR 


PMSG 




C3EB 24 


09 




ecc 


NNSP 


NO SPACE 


C2EE BO 


C024 


Aoocr 


JSR 


PCRLF 




C3CD 34 


02 




PSHA 






C2F1 BE 


0851 




LDX 


#FC»*2? 


SECTORS LEFT 


C3EF B6 


20 




LDAA 


#120 




C2F4 A£ 


M 




LDAA 


O r X 


MSB 


C3F1 60 


COIB 




JSR 


PUTCXR 




C2F6 B7 


C109 




STAA 


SIZE 


save for later 


C3F4 39 


02 




PULA 






C2F9 A6 


01 




LOAA 


i.x 


LSB 


C3f 6 BE 


CUD 


NNSP 


LOX 


#FILCNT 


POINT TO FILE # 


C2FB B7 


C106 




STAA 


S12E+1 




C3F9 W 






a.R6 




SUPW SS SPACES 


C2FE 8£ 


CB40 




LDX 


#FC& 


FC8 


C3FA BO 


CO 39 




iSR 


arvoEc 


PPINT FILE t 


C301 86 


06 




LOAA 


16 


(FEN DIRECTORY 


C3F0 C6 


02 




LOAfl 


12 


2 SPACES 


C303 A7 


84 




STAA 


o r x 


SAVE FOR READ OPEN 


C3fF BO 


C5BE 




JSR 


PSPACE 




C3W BO 


0406 




JSR 


FMS 


CALL FMS - 00 OPEN 


C402 BE 


C84 3 




LOX 


#FCB*3 


ORV # 



32 



'68' Micro Journal 



C403 46 


84 




LDAA 


o,x 


FETCH DRUE 


C407 m 


30 




ADDA 


#IH> 


ASCII OFFSET 


C409 30 


C018 




JSR 


PUTCMR 


PRINT ORVi 


C40C 66 


2E 




LOAA 


4*. 


PERIOD 


c4oe eo 


G0I8 




JSR 


PUTCMR 




C4TI 8E 


C644 


SHT1 


cox 


#FC8*4 


FILE NAME 


C414 06 


08 




L0A8 


#6 


8 CMRS 


C416 A6 


M 


LP1 


LOAA 


4 too 


FETCH CMR 


C4|8 SI 


00 




0#>A 


N(F7 


C4tA 26 


02 




BNE 


IP1A 


SKIP 


C41C 86 


20 




LOAA 


If 20 


*«*E IT A SPACE 


C41E 60 


cote 


LP1A 


JSR 


PUTCMR 


PRIN MAMf 0« 


C4 21 50 


01 




IN* 




NEXT Of? 


C423 3A 






occe 






C424 26 


FO 




RNE 


1.P1 


NEXT CHR 


C4 26 66 


2Z 




LOAA 


$\ 




C4?8 60 


0018 




JSR 


PUTCMR 




C42B 06 


03 




*« 


95 


3 CHRS 


C4 20 A6 


84 


LP 


LOAA 


O.X 


FETCH EXT CMR 


a* 60 


CD) 6 




JSR 


pvtcmr 




C4 32 30 


01 




inx 






C4 34 3A 






orcB 






C4 33 26 


F6 




8NE 


LP 


MFXT CMR 


C4 37 TO 


C10C 




TST 


EXPFLC 


CXP MDOE? 


C4 3A 26 


21 




6N€ 


L<>3 


exp Mooer 


C4 3C 70 


C116 




TST 


OLOFG 


OLD CAT FORMAT? 


C4 3F 26 


IC 




BHE 


L^3 


TESJ 


C44I 66 


C106 


LP2A 


LDAA 


aMCWT 


WHICH O.M7 


C444 4C 






INCA 




OFFSET 


C443 61 


CI 13 




CMPA 


a^-iM 


Tt»€ FOR CR/LF? 


C4 46 26 


08 




RNE 


LP« 


MO, 8UT RELOOP 


C44A BO 


C024 




JSR 


PORLF 




C440 If 


C106 




aR 


Q.MCNT 


RESET 


C430 20 


06 




BRA 


LP4A 


SKfP 


C4*Z TC 


ClOQ 


LP4 


INC 


CL*THT 


a.^*T 


C433 06 


03 




L0A8 


n 


3 SPACES 


C437 ao 


C36E 




JSR 


PSPACE 




C43A 7E 


C300 


LP4A 


J*» 


CAT4 


«XT FILE MME 


C4*> BE 


C833 


IP3 


aw 


#FC8*2l 


FILE SIZE 


C460 06 


rr 




LOAfl 


9WV 


LEADING SPACES 


C462 60 


CD 39 




JSR 


(VTDCC 


SECTOR CNT <0EC1 


C463 06 


02 




L0A6 


02 




C467 60 


C36E 




JSR 


PSPACE 


2 SPACES 


C46A 70 


croc 




rsr 


EXPFLG 


€XP M0OE7 


C460 27 


5C 




BED 


MTMT 


NO, OLD SHORT FORM 


C46F 6E 


C85A 




LDJC 


4fC8»26 


DAT 


C4TJ w 


C103 




aR 


STORE 


O.R STORAff 


C473 A6 


64 




LOAA 


O.X 


FETCH DAY 


C477 67 


C104 




STAA 


STOR£»l 


SAVE IT 


C4 7A 81 


OA 




CMPA 


ilOA 


>9? 


C4 7C 24 


09 




BCC 


NSP 


NO SPACE 


C47E 34 


02 




PSHA 






C460 66 


20 




LOAA 


4120 




C462 BO 


C018 




JSR 


PVTCM 




C483 35 


02 




PULA 






C4B7 BE 


C103 


N$P 


LOX 


'STORE 


POINT TO DAY 


C4BA 3r 






CLR9 




Sl***ESS SPACES 


C488 m 


0039 




JSR 


OUTTJEC 


PPIMT OAY 


C48C 66 


20 




LOAA 


#'- 




C490 60 


C018 




JSR 


putchr 




C493 BE 


CR39 




LOX 


4TC8»23 


MONTH 


C496 A6 


84 




LDAA 


0,x 


fETCH NONTM 


C498 8E 


C303 




LOX 


rTABLE 


MONTH TABLE 


C4Q6 4A 




NXTMMT 


DECA 




DEC MONTH 


C49C 27 


OA 




6E0 


FOUND 


GOT THE NTJHTM 


C49E 30 


01 


STEP 


i*ec 






C4A0 60 


84 




TST 


o,x 


ENO OF ENTRY 7 


C4A2 26 


FA 




RNF 


STEP 


NEXT ST1P 


C4A4 30 


01 




INX 




START OF NEXT ENTRY 


C4A6 20 


F3 




BRA 


NXTMNT 


NEXT MONTH 


C4AB A6 


84 


FOUND 


LOAA 


O.X 


fetch am 


C4AA 27 


08 




8C0 


MTH 


NOP IF '00' 


C4AC 60 


CD1B 




JSR 


PUTCMR 


PT IT 


C4AF 30 


01 




INX 




NEXT CHR 


>C46) 7E 


C4A8 




m 


FOUND 




C464 96 


20 


MTH 


LOAA 


$ % - 




C486 60 


CD18 




JSR 


PUTCMR 




C489 BE 


C6S© 




LOX 


*rC8*27 


YEAR 


C48C A6 


84 




LOAA 


o.x 


FETCH YEAR 


C46E 7F 


CI03 




OR 


STORE 




C4C1 87 


C104 




STAA 


STORE ^1 


SAVE IT 


C4C4 *F 






CLR8 




SUPTOESS ZEROS 


CK* BE 


cro3 




LOX 


'STORE 


POINT TO YEAR 


C4C8 60 


CD39 




JSR 


OOTOCC 




C4C6 6C 


C84F 


MTHI 


LOX 


#rc6fi9 




C4CE 06 


03 




LOAfl 


#3 




C400 60 


CW 




JSR 


PSPACE 


3 9>ACES 


C403 A6 


84 




LOAA 


o.x 


FETCH ATTRIBUTES 


C4W 84 


N 




AJCA 


#160 


•WRITE" PR0T7 


C407 27 


04 




BEQ 


PRTM 


NO 


C409 86 


"-7 




LOAA 


i*M 


MRI E PROT 


C406 20 


M 




6RA 


PRT1 


SXIP 


C400 86 


2A 


PRTIA 


LOAA 


#•• 




C4DF BO 


0016 


PRTt 


JSR 


PVTCMR 


PT MRITE PROT 


C4E2 A6 


84 




LOAA 


O.X 


ATTRI8 


C4E4 84 


40 




A*DA 


#140 


•DELETE' PR0T7 


C4E6 27 


O.i 




8C0 


PRT A 


NO 


C4E8 66 


n 




LOAA 


/♦D 


OELETE PROT 


C4EA 20 


02 




BRA 


PRT2 


9<1P 


C4EC 86 


ZA 


PRT7A 


LOAA 


#«• 




C4EE 60 


CD16 


PWT7 


JSR 


PUTCMR 


PT OELETE PROT 


C4FI Aft 


84 




LOAA 


O f X 


ATTRIB 


C4/J 64 


20 




AKOA 


«20 


•READ* ^R0T7 


C4« 27 


04 




6E0 


PRT3A 


NO 


C4T7 66 


*2 




LOAA 


#'R 


READ PROT 


C4T9 20 


02 




BRA 


PRT3 


SHIP 


C4F8 86 


2A 


PRT3A 


LOAA 


#•• 





C4FD 60 


CD18 


PRO 


JSR 


PVTCMR 




C900 A6 


84 




** 


O.X 


ATTRI8 


C302 84 


10 




AN£A 


M>0 


'CATALOG' PR0T7 


C504 27 


f»4 




6E0 


POT4A 


MO 


CT06 86 


43 




U>*A 


#»c 


CAT P»OT 


C908 20 


02 




BRA 


PRT4 


SKIP 


C^OA 86 


2A 


PRT4A 


LOAA 


4" 




C^OC BO 


cote 


PRT4 


JSR 


PUTTJHR 




C90F 70 


cix 




"■' 


EXPFLG 


CXP MODE 7 


C512 26 


03 




WE 


PRT40 


VESI 


CSI4 7E 


C441 




JMP 


LP? A 


MO. OLD SHORT FORM 


C91T 30 


01 


PRT40 


INX 






C519 30 


01 




INX 




START ADOR Of FILE 


CM8 06 


02 




LOAB 


42 




C51D 60 


e?eE 




JSR 


pspnce 


2 SPACES 


C520 BO 


CD43 




JSR 


OUT ADR 


TRACK-SECTOR 


C923 30 


01 




INX 




END AOOR OF FILE 


C*25 C6 


02 




LOAB 


42 




C927 60 


OWE 




JSR 


PSPACE 


2 SPACES 


C52A 60 


004 5 




JSR 


rrACM 


TRACK -SECTOR 


C92D 60 


0024 


PRT4© 


JSR 


PCRLF 


CRLF 


C930 7E 


C300 




JNP 


CAT* 


REPEAT 


CM3 A6 


01 


CAT6 


LDAA 


I.X 


GET EflROR STATUS 


C939 81 


08 




CHPA 


#8 


EOF EAR0R7 


C93^ 26 


03 




BNF 


CAT9 




C939 7E 


CD03 


CAT6A 


JNP 


^ARMS 




C93C 60 


CD3F 


CAT 


JSR 


RPTERR 


REPORT ERR 


C53F 7E 


CD03 




JMP 


WARMS 




C542 8E 


C66C 


CAT68 


LOX 


#STG6 


SYNTAX ERR 


C543 60 


CDTE 




JSR 


PM5G 




C948 20 


EF 




flRA 


TAT6A 


ABORT 



•<<<<«««<<<<<<<«« OPTION >>>>>>>>>»>>»>>>>►>> 

•TEST FOR OPTION COOES AND SET FLAGS ACCORDINGLY 



C54A 81 


2B 


OPTION 


CMPA 


40PTCHR 


OPTION LEAD m CHR7 


C*4C 27 


03 




BEO 


0PT2 


rrs 


C54E IC 


FE 


0PT1 


ac 




NO SYNTAX ERROR 


C990 39 






RTS 






CSSt BO 


CD27 


0PT2 


JSR 


MXTCM 


GET OPTION 


C^^4 81 


2C 




CMPA 


i\ 


COMMA 7 


C^6 27 


F6 




BEO 


GPT1 


DONE 


C498 81 


20 




CMPA 


nn 


SPACE7 


CS-SA 27 


F2 




BEO 


0PT1 


DONE 


C95C 81 


00 




CMPA 


#10 


CR7 


C9SE 27 


EE 




BEQ 


OPTT 


DONE 


CS60 81 


49 




CMPA 


fEXPCMR 


EXP MODE? 


C462 26 


03 




BHE 


OPT J 


NO 


C^64 7C 


C10C 




INC 


EXPFLG 


^P MDOE 


C567 20 


E8 




BRA 


0PT2 


MORE? 


CS69 81 


44 


QPT3 


CMPA 


IDELCMR 


CAT DEL FILES? 


C56G 26 


03 




ONE 


0PT4 


NO 


C960 7C 


C1T3 




INC 


DELFG 


CAT DEL FILES 


C^70 20 


OF 




BRA 


0PT2 


MDRE7 


C*72 81 


30 


0PT4 


CMPA 


fPROCMR 


CAT PROT FILES? 


CS74 26 


20 




BNE 


opn 


MORE 7 


C^76 86 


39 




LDAA 


4PASS 


PASSWORD MECHANIC ON? 


C378 81 


39 




CMPA 


#*Y 


TES7 


C97A 26 


13 




BNE 


0PT4A 


IGNORE PASSMOMTJ 


CS7C BO 


CD27 




JSR 


NXTQI 




C^T 81 


44 




CMPA 


IKET 


MATCH? MST CMR> 


C581 26 


36 




BNE 


0PT6 


NO MATCH 


CS83 60 


CD27 




JSR 


NXTCM 




r^n* ri 


4F 




CMPA 


4KEY1 


MATCH? (2ND CMR) 


C388 26 


31 




BNE 


0PT6 


NO MA Ql 


C58A 60 


CD27 




JSR 


NXTCM 




C980 81 


47 




CMPA 


#KEY2 


MATCH? < 3RD CMR) 


C^6F 26 


A 




BNE 


0PT6 


NO MATCH 


C991 7C 


CI 14 


0PT4A 


INC 


CAfFG 


PT CAT PROT FILES 


C394 70 


BB 




RRA 


0PT7 


MORE 


C996 8T 


i* 


CPT3 


CMPA 


4aNCHR 


aM CNT CHANGE? 


C998 26 


21 




BNE 


0PT6 


SYNTAX ERROR 


C39A BO 


CD27 




JSR 


NXTCM 


GET CLM CNT 


C590 29 


IC 




BCS 


OPT 6 


NOT ALPHA-MUM, ERROR 


C39F 81 


3A 




CMPA 


4I3A 


TOO LARGE? 


C5AI 24 


18 




BCC 


0PT6 


ERROR 


C9A3 81 


30 




CMPA 


4130 


ZERO? 


CMS 27 


OA 




BEO 


OPTS A 


OLD FORM 


C3A7 84 


OF 




AMOA 


4S0F 


STRIP ASCI 1 


C5A9 87 


C113 




STAA 


an. in 


SAYE FOR LATER 


C5AC 7F 


C116 




aR 


OLOFG 


aD FORM OFF 


CSAF 20 


AO 




BRA 


0PT2 


MORE? 


CW1 66 


01 


0PT3A 


LOAA 


41 


i an 


0^3 87 


CI13 




STAA 


a ml im 




C*86 7C 


CI 16 




INC 


aOFG 


aD CAT FORMAT 


C969 20 


96 




BRA 


0PT2 


MDRE? 


C96R 1A 


01 


0PT6 


SEC 




EAROR FLAG 


C580 39 






RTS 










•<«««<<«« pSPaOE >>>>>>>>>>>»>>>> 






•PRINT 


t OF S»ACE SET 1 


N «8« ACC 


CS6E 86 


20 


PSPACE 


LDAA 


mo 


SPACE 


C5C0 90 


C0I8 




JSR 


PVTCMR 


PRINT SPACE 


C5C3 SA 






DECS 






C^C4 2« 


F8 




M 


PSPACE 


MORE 


C9C6 39 






RTS 










*««<<<<<<«<<<<<< PMSG1 


>>>>>»»>>>>>>> 






•PRINT 


STRING 


K/0 A CRH/ 


C9C7 A6 


64 


PM5GI 


LOAA 


O.X 


FETCH CMR 


C5C9 81 


~* 




CMPA 


#4 


EOT? 


CSC6 27 


07 




BEO 


PMSG2 


DONE 


C3C0 90 


CD18 




JSR 


PVTCMR 


PT IT 


C*00 30 


01 




INX 




NEXT CHR 


CSD2 20 


F3 




BRA 


PM5GI 




CSD4 39 




PM5C2 


RTS 







'68* Micro Journal 



33 



mi MtiTTi mm nar $s* hhcmsi 



^ TOLL FREE 

1-800-338 



TCLEX 559 did PVT ITH 



9-6800 M 

5900 Cassandra Smith Rd. 
H *son. TN 37343 

tor Information 
Call (815) 842-4801 

CoCo OS-9" FLEX' - 

SOFTWARE 



!!! SPECIALS !!! 

'Tear End CLEARAWCr --- While they List 



I bOl 

rsc 


tktart •* 

"FLEX ut*mies H 


«as 


s/s.oo. 


NOW only 


(60.00 


rsc 


"Sort Merge" 


-as 


m.oo. 


HON only 


(60.00 


TSC 


"6R09 BASIC* 


MIS 


WS.OC, 


HON only 


(60.00 


rsc 


•[* tended BASIC" 


was 


(100,00, 


NOW onty 


C8S.00 


TSC 


■OtBi*g y 


*4S 


S7S.oo, 


NOW only 


(60.00 


TSC 


"FLEX 01a9nost1cs" 


MIS 


s/s.oo. 


WOW on)y 


(60.00 


TSC 


*T«?xt Processing S*stem" 


MAS 


175.00. 


WW Oflly 


(60.00 


TSC 


•68000 Cross AsteoAler* 


was 


uso.oo. 


HOW ooly (2*0.00 



LUCtOATA -JUPAK* (FLFX9, % 1/4") — A Pascal Implementation 
of the Tefctronix 40k 4 Terminal Control $yste«». with 
Mica? SOURCE, The Manual Includes a discussion of tow 
to utHIre tils pACRd9e lit the Graphical Horary In 
Implementing Vector 0ra«1n9, Point Plotting, etc., up 
through tflndewtng and Clipping concepts. 

Normal Price. (100.00: HOW only S6S.00 



OS-9 Software 

M1C*0HAR: "0S*9 File Handler Toolbox"; HOW Only (70.00 
MtC»OwARf "Relocating Macro Assembler"; WOW only (170,00 



!!! NEW NEW NEW !!! 

Computer Systems Consultants, Inc. 

CMOOEM HLCC0WMUWICAI10WS PROGRAM 

Menu-Driven; supports Dumb-lermlnal Mqde. Upload and 
Download In non-protocol mode, and the CP/H "M0DEM7" 
Chrlstensen protocol mode to enable communication 
capabilities for almost any requirement. Written In T\ 



FLEX. CCF. OS-9, UnlFLEX; 



with complete Source - 
without Source 



(100.00 

- (50.00 



-C-W - TXO£ (hot Macros) CROSS ASSEMBLERS 

fc/se your 6809-Bastd Computer System for developing Software 
for 180P/S. 6600/01/03/11. 6804. 680S, 6809, 6SOZ/3. 8O80/S. 
8048. 80S). Z-80. and 68000 Systems. Provides the 
Assembler Language and Listings normally used on the target 
Systems. Written In "C"; produces Motorola S-Text for 
machine Independence. 

FLEX. CCF, OS-9. *»IFlCX each . SM ^ 

any 3 - (100.00 
the complete set <1»clmdt*g (Ae C Source) - (700.00 




A&4 21 tt.I.a. 
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LLOTO I/O 

R-8ASIC - A "Ha live Code" BASIC Compiler 

Level 1 R-6A(tC supports sequential Mies, floating point. 3 
Sizes of Integers, string variables, and arrays. The 
single-pass compiler complies to Assembly Language Source 
Code (which may be assembled by the fmclmtfmtf OSM Assembler, 
or by the CRASM8 Cross Assemblers). Condi tlbftal assembly 
Is used to reduce the sire of the run tfme package. (See 
Review In Oct. '84 Issue of '68' Micro Joermil.) 



FLEX, CCF. OS-9 



Compiler wlU OSM Assembler * 1199*00 



OSM — Extended 6609 Macro Assembler 

Provides local labels. Motorola S-records. and Intel Hex 
records. Also generates OS-9 Hemonr modules under FLEX, 
allowing the maintenance of source code programs for both 
OOS's on one System. 



FLEX. CCF. OS-9 



(99.00 



CRASM8 — 8-811 Macro Cross Assembler 

Same features as OSM. cross-assembles to 6800/?/8. 6801/3, 
6804, 680$, 6809. 6811. 6502, 1802. 8048. 8080/5. Z-8. 2-80. 
Fully supports the target chip's standard mnemonics and 
addressing nodes. 



FLEX. CCF. OS-9 



full package 



(399.00 



CRASM8 16.3? — Cross Assembler for the 68000 

Same features as 8-81 t Cross Assemblers above 
(249.00 



Compusense Ltd. 

CRUWCH COBOL ~ COBOL Compiler 

This C080L Compiler supports a large subset of ANSI1 level 1 
COBOL with many of the useful Level 2 features. Full 
support of the FLEX File Structures fs Implemented 
Including Random Files and the ability to process Keyed 
Files. Lar9e programs can be segmented and linked at 
runtime, or imolemented as a set of overlays. The System 
requires 56ft and CAN be run with a single Disk System. 

FLEX, CCF normally (199.00 

Special Introductory Price (while they last) - (99.99 



ASSEMBLERS 

Southeast Media 

ASTRUK09 

A "Structured Assembler for the 6809" which requires the TSC 
Macro Assembler. Allows direct us* of structured statements 
such as IF. ELSE. DO, REPEAT, etc., and provides Indented level 
fornattlng of the listing so that the structure is apparent. 
Re. '68' Micro Journal. Sept. '83 (program was called "StasmoT; 
has been renamed due to conflicts). 

A User reports 
* . , . I'm very pleased and am no* writing almost exclusively in 
(ASTRUK09). I've selected it over -— for all future systems 
development... As (one) of my early evaluations. I rewrote a 
rather elaborate routine originally done in assembly. Out of 
the 1000 byt«-s of code generated, the IASTRUK09) version used 
only 20 more bytes than the original. — • could not handle 
this program since It uses triple-precision fixed point 
arithmetic... I have a large body of code already written that 
Is Incompatible with «-- constructs. No problem with 
(AjTRUKOQ) and the structure sure helps in understanding the 
logic! 4- 

F. CCF - (99.95 

nc 

Macro Assembler 
The FLEX STAMOARO Assembler. Special — F.CCF US. 00 

Relocating Assembler w/Lihklng Loader 
Use with many of the C and Pascal Compilers. F.CCF (ISO. 00 

treat Plata I Com?. Cm. 

tRMAC 

Relocating. Recurslee-ftmcro Assembler and Lilting Learner. 

F.CCF (120.00; w/Source (240.00 
Omm Soft 

tRAlLl 

Re 1 oca tin 9 Assembler and LlmtlmQ Loader 

F.CCF (125.00: for One *t*r MAlnt.. add (SO. 00 

wlmdnisb Micro 9ys terns 

HUl. b» Graham Trott. F.CCF - 598.00 



KCHI 



VCs: :r SflFTUIalRS 



AamHUMlity 

f » FLEX, OCT » Color Computer rL£X 

O • OS-9. ODD • Color Computer OS-9 

II • UhlFLCX 

CCD • Color Computer Dls* 

€ET » Color Computer Tape 
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DISASSEMBLERS 

Computer fr ttmms Consultants 

5UH* SLEUTH 
Computer Systems Consultants Super Sleuth Is a "Time Tested", 
reliable, PROVEN Disassembler that has gained acceptance 
through out the SS-SO Bus Community as an extremely POWERFUL, 
I KTER ACTIVE. Software Tool. The Super Sleutli Software Package 
consists of 3 Programs; SUVTH (the Disassembler!, UftJuVt {used 
to globally Change Labels to a meaningful Name), and XRET (a 
Cross Reference Generator for Source Code Files). SLEUTH will 
Disassemble Memory Resident 6809 Code and 6800. 6801, 6802. 
6803 (the "Baby Coco"], 680S. 6808, 6809. and 6S02 (Apple, 
Atari, Commodore, etc.) Binary Disk Files, fSee Ajg. '63 '68* 
Hie re Journal "Color Users hutes" Column for a full Review.) 
Colon Computer SS-SO Bus (all w/ Sour**) 

CCO (32K Req'dl 

Obj. Only $49.00 F. 599.00 

CCF, Obj. Only SSO.OO U. 5100.00 

CCF, w/Source $99.00 0. 5101.00 

CCO. Obj. Only SSO.OO 



ALL Computer Systems Consultants Software 

runs on the Color FLEX Systems 

ALL In stock 

call 800-338-6800 

for TJPED1ATC DELTVERT 



Computer *s terns Center 

DT1AKITE ♦ 

An "easy to use", powerful Disassembler for Disk Resident 6809 
and 6600 Binary Files. Allows the development of a "Control 
File" of various Program "Boundaries* during successive 
disassemblies; can use a Label File whicn automatically replaces 
a He* Location with a Label Name; Includes an XREF Utility; etc. 
Label Files provided for Hlnl-FLEX. FLEX2, FLEX9. Color Computer 
(for use with Color FLEX Systems), etc. OS-9 Version Includes 
special OS-9 options. 

CCF, ObJ. Only 1100.00 CCO, " " S1S0.OO 

F, " * 5100.00 0, " " 5150.00 

U, " ' 5300.00 



COMPILERS and DECOMPILERS 

6809 'Structured" Assembly Lang. Compilers 

Wlndrusn mcro ays teas 

~ Fl/9 

8y Graham Trott. A combination Edi t»r/Compiter/Oebugger, all in 
ONE PACKAGE; provides a totally INTERACTIVE Program Development 
Cycle. The Single-Pass Compiler supports large Symbol flames; 
variable Types; Pointers; Control Structures (similar to *C or 
'Pascal'}; Stack. A- .8-. and D-Reglster manipulation; etc. The 
Source-Oriented Trace/Debugger provides Single Stepping, Break- 
pointing, etc. An excellent Software Development Tool which 
provides for tne maxlmun utilization of the power of the 6809. 

F. CCF - 5198.00 

Whimsical Developments 

MNMSICAL 
Heed the Ease of Design and Maintainability of "Structured 
Programming* ANO the Speed and Control of Assembly language? 
Then NNIHSICAL was designed for youl This Single Pass, 
Recursive Descent Compiler provides the tool for developing 
simple Utilities to MAJOR Systems In Assembly Language. 
Supports 3 "Lex" Levels which allow one level of Procedure 
nesting, or more within "Nodules". It Is easy to develop 
programs written for other machines since you are working at 
the Assenbly Language level. Features unified, user-defined 
I/O; produces ROMable, relocatable, recursive, re-entrant Code; 
Structured style and statements with Procedures and Modules; 
supports Byte and Doubte-8yte primitives with 3 types of 
Integers (up to 32 bit). Char and Boolean, and unlimited sized 
Arrays {vectors only); Interrupt handling; unllmfted length 
variable Karnes; Variable Initialization [defaults to 100); 
Include "Source Ffle" directive; Conditional compiling; direct 
Code Insertion; control of the Stack Pointer; etc. To quote 
Ron Anderson In his comments about VHDISICAL In the Sept. '63 
Issue of '68' Micro Journal that, except for the Tack of floats, 
'..., 1 have to give this o#* VERY high rating. \ it Is a 
FAST Compiler which produces FAST Code (his "Primes' Benchmark 
ran at 9 sees, on a 2 HKi System). 

J and CCF - 1195.00 




3f TOLL FREE 

1-800-338 
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tor information 

call (615) 842-4601 

CoCo OS-9 1 " FLEX" 

SOFTWARE 



C' COMPILERS 

Ml ml rush mkro Systems 

C Compiler 
By Janes McCosn. Full featured C Compiler for the FLEX 
Operating System (lacking ONLY "bit-fields''). Including an 
Assembler. Requires the TSC Relocating Assembler IF the user 
wishes to implement his own Libraries. 

F and CCF - S29S.00 

Intro! 



C Compiler 

A full-featured C, streamlined for the 6809. Generates very 
efficient object code. Output "benchmarks" close to IOMhz 
68000 In 8 Bit Operations; i.S times faster than a 4 *Hz 190 
when using a ?Nlz 6809 System (Re. p 43. "68" Micro Journal, toy 
'83J. Floats, etc. 

F, CCF, and - S375.00 

U - $425.00 

One Year Halnt. - WOO. 00 



PASCAL COMPILERS 

TSC 

PASCAL Compiler 
Native Code Compiler tUCSO Oriented*. 



F and CCF - S200.00 

luc 1 data 

PASCAL Compiler 
P-Code Compiler (ISO Standard!. Designed especially for 
Microcomputer Systems; Run-time System checks available 
resources for each task, allowing operation on even minimal 
computer systems. Allows linkage to Assembler Code for maximum 
flexibility. 

F and CCF T - $190.00 
F r - S205.00 

Omega Soft 

PASCAL Compiler 
For the PROFESSIONAL; ISO Based, Native Code Compiler. 
Primarily for Real-Time and Process Control applications. Use 
custom I/O devices In place of the Pascal IsPUT and OUTPUT; 
Long Int. (32 Bit}; Dynamic length strings; Interrupt 
processing, ROM-able. PIC, Re-Entrant Code. etc. POMtftFUll 
Includes Source for the Symbolic Debugger, Runtime, and several 
Utilities. Requires a "Motorola Compatible 4 * Relocating 
Assembler and Linking Loader. 

F and CCF - S425.00 
One Year Malnt. - S100.00 



DECOMPILERS 

Southeast Media 

Hi (A UniFLCX "basic- Decompiler) 

Re-Create a Source listing from UniFlEX Compiled basic 
Programs. Easy to Use; works */ ALL Versions of UnlFlEX basic; 
Output to Disk or Terminal. Tine TESTED and PROVEN; SOLID! 

U - $219.95 



A^a IX U.S.A. 
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TELEX SSI 4J4 PVT ITM 



1-80O-338-68OO Igi 

5900 Cassandra Smith Rd. 
Hixson, TN 37343 

lor information 

Caf! <615) 842-4601 

CoCo OS-9" FLUX" 

SflFTUIflRE 



UTILITIES 

Southeast Mft 

BaslcOT Xftef 
Thl * BaslcOT Cross Reference Utility is a 8<is1c09 Program which 
Kill produce a *pretty printed" listing Kith eich line numbered, 
followed by a complete cross referenced H sting of all variables, 
external procedures, and line njmuers called. Also included Is 
a Program List Utility whlcn output* the listing without the 
overhead of building the cross reference table, which allows tt 
to run considerably faster when only a "pretty printed" listing 
with line numbers Is desired. Requires Basfc09 or RunB for 
operation. 

»• ^t ll^it*.^ •• » Of* «!.••«. «♦•.») 




SoutHeast Medte 

OS-9 ¥01 sk 

Give your OS-9 Lewi I System the speed of memory access that 
can be several orders of magnitude over your present floppy disk 
drive. Use that Extended Memory capability of your SwTPC or 
Giml* CPU card (or any other that has the same format OAT). 
The sl/e of the Virtual Olsk 1* completely variable In whole 
Increments of an up to 960k. which is all that these systems 
can address beyond the base Page that OS-9 Lcm?l I uses. By 
putting all of your CMOS Directory on your Virtual Disk, you can 
have the fastest execution speed possible (next to eating up 
System Memory with all of them). You can also set up high 
speed Inter-process communications via random virtual disk files 
and not eat up valuable system memory with pipe buffers. Some 
Assembly Required - tewl I OrnlT. 

0, obi. only - S79.9S 
w/ Source - SU9.9S 
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OS/9 to FLEX - aEX to OS/9 

Finally: the barrier has been removed between OS/9 and fill 
formatted dlsksf How you can RtAO from, and WRITE to, a Single 
Sided S" or 6" FLEX diskette from OS-9 with 0-f. 0-f 1s a new 
and unique program, written in DA SIC 09 (with Source), that 
performs the following functions; 
REFORMAT: A BASIC 09 Program that reformats a chosen amount of 

an QS-g disk to FLEX Format so It can be used normally by 

FLEX. 
FLCX: A BASIC09 Program that does the actual read or write 

function to the special 0-F Transfer Disk, all selected from a 

user-friendly menu* Functions provided Include reading the 

FLEX Olrectory. Deleting FLCX Files, Copying both directions. 

etc. All selections are Interactive and complete. Including 

all necessary prompts to the operator. 
FLEX users can rt^ t write and use the special disk as any 
other FLEX disk, provided the FLEX directory Is not allowed to 
continue beyond track ztro (too many files). 

- S79.9S 



Southeast Media 

cor mm t 

--- Copy LARGE Disks to several smeller disks — 
The following FLEX utilities allow the backup of ART size disk 
to ^nf SMALLER s1*e diskettes {Winchester to B*s or S's. 9" to 
S's, etc.). By simply Inserting diskettes as requested by 
COPTMULT* a large disk system may be downloaded to your present 
floppy disk system, tr\y size, wo need to fiddle with directory 
deletions or any of the other tedious operations that must be 
done using the normal copy routines. 
COPYMULT. CMO under: tands normal "copy 1 ' syntax and always keeps 

up with files already copied by maintaining directories for 

both host and receiving disk system, eliminating hours of 

tedious keyboard entries and other time consuming cleanup 

chores. 
BACKUP. CUD Is a special program that downloads "random* type 

files, any slit. 
RESTORE. CMO a special program to restructure copied "random" 

files for copying, or recopyfng back to the host system. 
FRCELIMK.CMO a "bonus" utility that "relinks* the free chain of 

floppy or hard disk thereby eliminating fragmentation. 
Completely documented sow files Included. 

ALL 4 Programs (FLEX. 8" or 5*1 $99.50 



Southeast Media 

XOATA 

A C0T-MU1ICAT10W Package 

for the 1*1 FLEX Operating System 

Allows UnlFLEX Rased Systems to Transmit and Receive files to 

and from ether Computer Systems via Modem. Use with CP/H. Main 

Frames, other UnlFLEX Systems, etc. 

-- Verifies Transmission Integrity using 

Checksum or CRC 
-- Automatically Re- Transmits bad blocks 
-~ Transmits data In \?B byte blocks 

U - S299.99 



Lmtlmetl 

PASCAL UTILITIES 
Requires LUC10ATA Pascal ver 3, 
XRCF — produce a Cross Reference listing of any text; oriented 
to Pascal Source. 

F and CCF - 12S.00 
IIKLUOE -- allows the Inclusion of other Files In a Source Text; 
has unlimited nesting capabilities. Also allows Binary File 
Inclusions. 

F and CCF - 125,00 
PROFILER •• produces an Indented, Numbered, "Structogram" of a 
Pascal Source Text File. Allows viewing the overall structure 
of Urge programs, and provides clues as to the Integrity of the 
program. Supplied as Source Code: requires compilation. 

F and CCF - 125.00 



%%^nOtJi*""drj Smith n<j c " c " «** pl«» 
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t m FLEA, OCT • Color Compiler FLCX 

O « OS-9, OCD • Color Computer CS-9 

II - UriiFl£X 

CCS - Color Cow|*Jt*r Disk 

OTT • Color Computer Tape 
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Luc Ida ta 

COPYCAT 

Pascal HOT required 
Allows riding TSC Klnl-FLEX. SSB DOSM, and Digital Research 
CP/M Disks While operating under FLEX 1.0, FLEX 2.0, or FLEX 
9.0 with 6800 or 6809 Systems. COPYCAT will not perform 
piracies, but, between the program and the manual, you stand a 
good chance of accomplishing a transfer. Includes Utilities to 
List Directories, Copy Files, and convert Text Files when 
required. Also Includes a Utility for Investigating Physical 
Compatibility problems. Programs supplied In Modular Source 
Code (Assembly language) to make It easier to solve unusual 
problems. 

r and CCF 5' - $50.00 
F 8* • J6S,00 
Computer Systems Consultants 

nrnnsi utilities 

Eight («) different FLEX Utilities that should be a part or 

every FLEX users Toolbox; Assembly Language (Source Code); 
Copy a File with CRC Errors, so It can possibly be salvaged; 
Test Disk for errors; CoWare two Disks: a fast Disk Backup 
Program; Edit Disk Sectors; Linearize Fr*e-Cmrlh on the OHk; 
print Olsk Identification; *n^ Sort and Replace the Disk 
Directory (In sorted order). 

PUS 

Ten BASIC Programs to; 

A BASIC Re sequencer with EXTAAs over MEhUM"; works with ALL 
Versions of FLEX BASIC AND the Precompiler, checks for 
missing label definitions, processes Disk to Disk instead of 
In Memory. 

Compare, Merge, or Generate Updates between two BASIC 
Programs, check BASIC Sequence Numbers, compare two 
unsequenced files, and 5 Programs for establishing a master 
Directory of several Disks, and sorting, selecting, updating, 
and printing paginated listings of these Mies. 

A BASIC Cross -Reference Program, written in Assembly Language, 
which provides an X-Ref Listing of tl* Variables and Reserved 
Words In TSC BASIC, IBASIC, and PRECOMPILER BASIC Programs. 

ALL Utilities Include Source (either BASIC or Source Code). An 

EXCELLENT Value! 

F and CCF - S50.00 



BUSINESS 

WORD PROCESSING 

Kimdrush Micro Systems 

SCREDITDR III 
EXTREMELY Powerful Screen-Oriented Editor/kord Processor. 
Almost SO different commands; EXCELLENT Documentation (ever 300 
pages), including a full TuterlaT Section to heTp you learn how 
to use the system. Features Cursor-based editing, dynamic 
Icreen Formatting (what you see Is what you get), Multi-Column 
display and editing, "decimal align" columns (AKD add them up 
a u torn* tic ally. If wanted), define multiple keystroke macros, even 
and odd page number headers and footers. Imbed printer control 
codes in te*t, full justification series of commands, fu)l "help* 
support, store common command series on disk for future use, 
etc. Easy "Set-Up" (for example, you Just hit the key you want 
to use for a specific function, such as "cursor up", and the 
System reads an stores that key - no digging Into tech manuals 
for codes, etch use supplied "set-ups", or remap the keyboard 
to what you ^re used too. Except for proportional printing, 
this package will DO IT ALL! 

€800 or 6809 FLEX or SSB DOS, OS-9 - SI75.00 

Southeast media 

SPELLS "Computer Dictionary" 
OVER 120.000 words! 
Ho more "Let your fingers do the walking through the DfCtionaiV 
while you are entering Te<t with your favorite Editor or Word 
Processor. SPELLB is more than just "another Spelling 
Checker"; It allows you to look up a word from wlthfn your 
Editor or Word Processor so that you MOM it is right KKEtt YOU 
TfPE IT IN with the SPK.CftO Utility (which operates in the FLEX 
Utility Space). Yes. it ALSO allows you to check and update the 
Text after you ire finished; along wtth allowing you to ADD 
WORDS to the OUtlonary, "Flag" questionable words in the Text 
for evaluation later, view a word (n context* before changing 
or Ignoring, etc. SPELLS first checks a *Co*mon Word 
Dictionary", then the normal Dictionary, then a "Personal word 
List*, and finally, any "Special Word List" you may have 
sped Med. SPELLB also allows the use or Smell Disk Storage 
systems. 

F and CCF - SIM, 95 
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Great Mains tompwter Co. 

5TYLO0UM 
A full-screen oriented WORD PROCESSOR -- tnow runs on the Data- 
Comp and Fkl Color FLEX Systems; uses the 51 * 24 Display 
Screens), Full screen display and editing (i.e., what you see 
Is what you get?; supports the Daisy Wheel proportional 
printers. 

SPECIAL CCF - U9S-00 
F and - *?9S.0O U , S395.0O 



Fast Computer Dictionary. 
F. CCF, OS/9 - S125.00 



SPELL 



U - S175.00 



MIL HERGE 
Greatly extends the power and flexibility or 57U0GMMI. 
f. CCf. - SUS.OO U - H95.00 



Southeast mmdii 

JUST 
Tent Formatter 
JUST, a Text Formatter developed by Ron Anderson, provides 
niijuergu* features which make It a valuable addition to any FLEX 
Users Software Library. JUST Is designed for formatting Text 
Output for Dot Matrix Printers and provides many unique 
features: 
-Output the "formatted** Text to the Display for format analysis 

and change. 
-Output the "Formatted" Text to a Text File for use with the 

supplied FpRiaT.Cao for producing multiple copies of the Text 

on the Printer IKCLUOIHG IMBEDDED PRINTER COMMANDS (this 

Utility is very useful at other times also, and worth the 

price of the program by ftself). 
-"User Configurable* for adapting to other Printers (comes set 

up for Epson MX-BO wltn Craftrax); provides for up to ten (10] 

imbedded 'Printer Control Commands*', such as Italics on and 

off, boldface on and off, etc. 
-Automatic compensation for a "Double width" printed line. 
-Includes the norma) line width, margin, Indent, paragraph. 

space, vertical skip lines, page length, page numbering, 

centering, fill, justification, etc. 
-Use with JUT Editor. 
-Supplied with "Structured Source" (Hlndrush PL/91: easy to see 

the flow of the program, 

F and CCF - S49.95 



X vet* *«ci 
I IOO31I4HO0 

mA** 

aftftv m ^oo Ca»ae 



ftiiT Mfttlft 



tenor* Smith Rd 
On, TN 37343 

mfo (a is) aa? 46oi 



CoCo os*' rtxx* 

SflfTIMBE 



AumLLmbUity 
f - FLTX, ccy 
O • OS-9, COT 

u - umrtfx 

CO> • Color Computer Dis* 
CCT « Color Computer Tape 



Coin? Computer NjCT 
Cotrir Computer OR-9 



66* Micro Journal 



III Pleat* Specify Your Operating Systee 4 Disk Size III 



37 



f*tt MXtTTt WIT* i¥i*¥ SS$ WJtCMfi 



IS? TOLL FREE TELEX 331 414 »VT §TH 
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Hixson. TN 37343 

for information 
call (615) 642-4601 

CoCo OS-9" FLEX'" 

SOFTWARE 



DATA BASE 
MANAGEMENT SYSTEMS 



estcnester Applied Business Sjrtjw 



Possibly one of the most powerful database Management Systems' 
available, this machine language program Is small enough to 
operate on a single sided S a disk, yet provides the speed of 
H.L. and pwcr limited only by the user's Imagination. TMs DMS 
supports Relational, Sequential, Hierarchical, and Random Access 
rile Structures, and has Virtual Memory capabilities for those 
Giant Data Bases, XOKS Level I provides a functional *entr y 
level" System *Mch provides for defining a Data Base, entering 
and changing the Data, and producing Reports. XDMS Leiml II 
adds the POWERFUL "GENERATE" facility whfch uses an 
English Language Command Structure In manipulating the Oata to 
create new rile Structures, Sort. Select. Calculate. eU. XDMS 
Level 111 adds several special "Utilities' which provide 
additional ease of working wit* the various structures, changing 
System Parameters, etc. 

XOKS Lvl I - F i CCF - S129.9S 

XDMS Lvl II - F I CCF - 1199.95 

XOHS Lvl III - r A CCF - 1269.95 

XDMS System Manual only - $24.95 



ACCOUNTING PACKAGES 



treat Plains Computer Co. and Universal Data Research. Inc. 
both have Business Packages written In TSC XBASIC for FIE*. 
CoCo FLEX, and UnlFLEI 



Call 800-338-6800 for more information 



Computer Systems Con ml tan ts 

FULL SCftECN imrEBTOBY/WP 
The Full Screen Inventory System provides a means of maintaining 
small Inventories. Using a linked, keyed random file structure 
based upon the Item field. It keeps the file In alphabetical 
order for easier Inquiry. With the FIND command, the user may 
locate and/or print all records matching on partial or complete 
item, description, vendor, or attributes. Items in backorder or 
below minimum stock levels may be located and/or printed thru 
the same process. . Printed output may be produced In Item or 
vendor order. A materials requirement planning (MRP) capability 
for lanufacturing environments is included to allow the 
maintenance and analysis of Hierarchical assemblies of Items in 
the Inventory file. It requires TSCi Extended BASIC. 

F and CCF - 1100.00. J - S1SO.00 




r- 



The Virginia 



BIZPACK 

BIZPACE Is used for storing accounting, numeric, and financial 
data which can then be used for planning, budgeting, 
forecasting, analyzing, etc. While "Electronic Spreadsheets* 
trt extremely useful in many situations. BIZPACE excels In 
businesses where there trt numerous expense columns, revenue 
sources, significant business Indicators, large numbers, erratic 
week-to-week and month-to-month fluctuations, etc. BIZPAOt 
helps determine statistical relationships, establish trend 
lines, "smooths* data via moving averages, analyze seasonal data, 
adjusts for Inflation, lags data in Statistics or Column 
functions, plots data* etc. BUPACK Is oriented toward time 
series analysis of businesses. The Program displays Information 
on the screen In Columns of Information with each Row 
conforming to a defined Period of Time (weeks, months, years, 
etc.), and Is very easy to use (data Is easy to enter, change, 
and modify; commands can be renamed to suit the users 
requirements; unlimited ability to create specialized commands 
using common BASIC Statements; etc.). Requires TSC's Lt tended 
BASK. 

F and CCF • S13S.00 
with Source - 1250.00 

Computer Systems Consultants 

— TABULA RASA SPtXAOSJfKT 

TABULA RASA Is Similar to DESkTOP/PLAN and provides for the 
generation and maintenance of tabular computation schemes often 
used for analysis of business* sales, and economic scenarios. 
Its menu-driven user Interface provides these capabilities even 
to those users with no programming experience. Its extensive 
report-generation capabilities allow the user to generate 
professional results with minimum effort. It requires TSC's 
Extended BASIC. 

F and CCF - 1100.00. U - 1200.00 



Computer S, stems Center 

" " DYBACALC 

THE Electronic Spread Sheet for 6809 Computer Systems. An 
extremely POWERFUL Business Tool, this Program will find an 
unlimited number of 'non-business' applications, also {for 
example, a FuM Junior College Electronics Curriculum was set up 
using OVBACALCL Advanced features like "Table Lookup" mate 
Income Tax work easy; Column or Row Sorting for numerous 
applications; etc. Completely "Memory Resident". Machine 
Language, this Program is FAST. Provides STAWARO FLEX Text 
File output for use with BASIC. Mord Processors, Pascal, "£". 
etc. Also available for Oata-Comp and FML flEX systems using 
the 60 x 2a 01 splays, 

F and SPECIAL CCF - 1200.00 
U - 1395-00 



Arfd IX U.S. A* 

into. Bi.St] 
Atfi II ittUtt r*ni 
lot air Imtmlmji 



•FiEX is a uadmma<% of Technical Systems Consultants 
^059 is a trademark oi Microwave 




ODDS AND ENDS 



Computer Tysteatt Consultants 

FULL 5CKEI FORMS DISPLAY 
This package supports any Serial Terminal with cursor control 
of Memory-Mapped Video Displays. The package substantially 
extends the screen Input/Output capabilities of TSC's Extended 
BASIC programs by providing a simple, table-driven method of 
describing and using full screen displays. These table entries 
are easy to set up and maintain, and »r^ normally stored on 
disk and read as required. A simple. Interactive means of 
generating the forms and the data field definitions Is provided. 

F and CCF - 150.00. U - 175.00 

rmmjulai Syit— Consultants 

ninaftEi MAJLIn. LIST 

The Full Screen Mailing List System provides a means of 
maintaining simple mailing lists. Using a random fill structure 
based on the first character of the name field. It maintains the 
file In alphabetical order for easier Inquiry. With the FIND 
command, the user may locate all records matching on partial or 
complete name. city, state, zip. or attributes. Printed 
listings and output to labels may also be produced on the same 
selective basts. It requires TSC's ExtrNJed BASIC 

F and CCF - 1100.00. U - SUO.OO 



rmmllmMltty 

F ■ FLE*, rj-f • Color Computer TL£X 

O • 06-9 r CCO • Color Computer G6-9 

II - IJhiFlX* 

CCO ■ Color Compjter WsK 

OCT ■ Color Computer Tape 
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SB' Micro Journal 



Southeast fedla 



XAPUX 

CHESS (609 



ft 



Requires REX and OlSPUrS On Any Type Terminal 
Features: 

•four levels of play. 

*Swap side. *Pofnt scoring system, 

•Two display boards. Khange skfTl level, 

*Solve Checkmate problems In 1-2-3-4 moves. 

•Wake move and swap sides. *P1ay white or black. 

TMs Is one of the strongest CHESS programs running on any 

microcomputer, estimated USCF Rating 160O {better than most 

*club' players at higher levels). 

f and CCF - S79,95 

Southe a st Hedla 

OIET-TRAC Forecaster 

OltT-TRAC Forecaster 1$ an XBASIC program that plans a diet 
In terms of either calories and percentage of carbohydrates, 
proteins and fats (C ? Ct) or grams of Carbohydrate. Protein 
and Fat food exchanges of each of the sh basic food groups 
( vegetable, bread, meat, skim mlU. fruit and fat) for a specific 
Individual. 

Sen, Age, Hefght, Present Weight. Fraue Sl*e, Activity Level 
and Basal Metabolic Rate for normal Individual are taken Into 
account, Ideal weight and sustaining calories for any weight of 
the above Individual are calculated. When a weight goal Is 
given (either gain or loss}, and a calorie plan Is agreed upon 
between the computer and the Individual, the number of days to 
reach the weight goal is projected. The starting and ending 
rate of weight loss Is calculated, and a dally calendar with 
each day's weight for a 30-day period Is printed. 

F - SS9.9S 
U - 589.95 



COLOR COMPUTER 
SOFTWARE 



Stearns Electronic* 

FWm 
Intrigued by Forth??? Here Is a FORTH package tailored to the 
Color Computer! This package Is supplied on Tape, with 
Instructions for transferring It to disk If you wish. Hrltten 
primarily In ruchfne language. It's speed ts unparalleled. A 
full Se(*l9rAPhk-8 Editor Is provided, along with "goodies* Ifke 
Graphics and Sound Commands. Printer Commands, Auto-Repeat and 
Control Keys. etc. If you are Interested In Learning FORTH, a 
Trace Feature is provided which Is Invaluable. If you are a 
FORTH Pro, this package provides CPU carr"y Flag accessibility, 
Fast Task Multiplexing, Clean Interrupt Handling, etc. (Or; you 
won't "out grow" the Basic capabilities of this Implementation). 
Combine this package with Leo Brodle's EXCELLENT Book "Starting 
FORTH", and you will t»e a FORTH Expert before you know It (and 
have a lot of fun doing Itj). 

Color Computer TAPE - SSB.95 

Custom- S of tware Engineering. Inc. 

Color Computer fiftWHJC SCIEEM PRIIf Programs 
Oumps any "PNOOE" Screen to the Printer with the BASIC US* 
Function. Shift the Printout Left or Right or Reverse Print 
{Dark for Light Screen and Vice Vend). All Programs on Tape, 
SSPR for R.S. LP-VJI/VJM 4 OKP 100/200/400 17.95 
GSPRC for Epson w/ Graftrax and Graf trax • S9.9S 

CSPRG for Gemini 10 and IS jg.gs 

GSPRP for the Prowrlter Printers 59. 9S 

Cus tom Softwa re Engineering, Inc. 

OATC-O-lXSF CALEMDA* Program 

A Henu Driven EXTCNOED BASIC Program which allows the entry of 
up to I? Memos per Oay, each of which may contain up to 28 
Characters, for any day of the Month between the years 1700 and 
2099, A Graphic Calendar shows which days contain Memos, and a 
''Key Word" Search 1$ provided which can be output to the Screen 
or Printer. 

TAPE OATE-0-BASE CALENDAR 
(Each rape File will hoM up to 400 Memos) U6.9S 

HIS* DATE-O-BASE CALENDAR 
14.000 nemos at 300/Nonth per Disk} S19.9S 




* Hirrnc ** 

Add IX U.S.A. 
<>In, Si, SO) 

aa4 n toef*M r»T»i*B 

10] Air Fartif* 



F*££ Pl$*i77£_Wmil¥£*y$S9 W*CMf£ 



S TOLL FKM 

1 800-338 



mumt 



TIUX 551 414 f VT »TM 

J-6800 m 

awftti lit if 

% $§§ia 

5900 Cassandra Smith Rd. 
Hixson. TN 37343 

for information 
call (515) 642-4601 

CoCo OS-9" FLKX" 

SOFTWARE 



Custom Software 



Engineeri ng, Inc. 

Imifi WTtlffST-liig 



Interested In INTEREST (the Honey Kfnd)? An EXTENOEO BASIC 
Program that will help you deal with numerous problems requiring 
Interest calculations. Present Value, Rate of Return* Current 
Bond Yield and Rate of Return to maturity. Loan Repayment 
Amortisation Schedules. etc. 

TAPE - S?9.95 

Custom Software Engineering, Inc. 

" DIST 6m MlDU* 64* 

An EXTENDED BASIC OaU Management System w/ liach. Lang. 
Routines. Allows a max of ?46 Chars, and U Ffelds per Record, 
and another Record can be linked to the first; B Char. Field 
Names, up to 99 Chars, per Field. Powerful On-Screen editor 
for Input and update, flexible Output capabilities Including 
output to Disk Files for use by other Programs. Change File 
Definition without re-entering the Data, Split Files, etc. 
Allows Multiple Field Sorts, Select on any combination of Fields, 
etc. An extremely POWERFUL TOOL: Instructions provide examples 
of Mafltng Lists and a Financial Stock Profit and Loss Tracking 
System. 

01SK - 5S4.9S 

Custom Software Engineering, Inc. 

" HTsTTBDILE fim 

0(SK ExTLNOED BASIC Accounting Program w/ nach. Lang. 
Routines. A "Traditional" Accounting Package for Small 
Business, Clubs. Cnurches. Personal use. etc. Up to four levels 
of subtotals with Trial Balance. Income Statement, and Balance 
Sfieet Reports. DtlE allows up to 300 accounts and a Trial 
Balance of S9. 999. 999. 99. Transactions may be up to 14 lines 
long, and comments and explanations may be freely used. 
Accounts are traceable to the journal transaction, which may 
Include comments. Screen reports allow review of past 
transactions and current balances. 

DISK - S44.9S 



"Flex is * rtaderoar* C Technical Systems ComuManls 
"OS9 is * Iraclemart ol Microwara 




This Months 

ft 
STAR SPECIAL 

'RAPIER 1 CHESS 6609 
St?*? pafc 39 

Pcf. $79.95 

Special $39.95 

Offer Ends April )5th, 1985 



*» liability 

f • FLEX, OCT • CftUr Cow^uter FLEX 

O * OS-9, OCD » Color Con»puLer OG-9 

U - IHJFLJ* 

GCD - CoJor Computer Disk 

OCT - Color Computer Tap* 



'68 Micro Journal 



III Ple>.*e> Specify To«r OporatlM Sfstmm t Disk $!*• !!f 



39 



C5D9 
C50C 
C50C 

csro 

C5E1 
C5E4 
C5E5 

C5E9 
C5€C 
C^fO 
C^ro 
C5F| 
&e* 
C5r5 
C5f8 
C5r0 

C5rt> 
C6O0 
0601 
C6W 

C603 
W09 
C600 
C6M 
C615 
C610 
C610 
C61E 
C622 
C626 
C62A 
062E 
C632 
06* 
06M 
C6K 
C640 
C644 
C64fl 
C64C 
C650 
0652 

C6W 



4A 61 6€ 

00 

46 63 62 

00 

40 61 7? 
00 

41 70 72 
00 

40 61 70 
00 

<A 75 6C 

00 

4A 75 6C 

00 

41 75 67 
00 

53 65 70 

00 

if 63 ?4 

00 

4E 6F 76 

00 

44 65 63 

00 



•STRINGS: 
TABIC FCC 
FCB 
FCC 
FC8 
FCC 
FC8 
FCC 

Fca 

FCC 
FC8 
fCC 

Fca 

FCC 
FCB 
FCC 
FCB 
FCC 
FC8 
FCC 
FC9 
FCC 

Fee 

FCC 

fob 



43 61 

6C 6F 
6F 66 
72 60 
20 4£ 
62 65 
04 

20 23 
20 20 
60 65 
20 20 
70 63 
53 69 
20 20 
20 20 
74 65 
20 20 
72 6f 
20 33 
74 20 
6E 64 
00 OA 

44 69 
3A 20 



74 61 
67 20 
20 44 
76 63 

73 60 
7? 20 

20 20 

4C 6T 

20 20 

34 79 

20 20 

7* 65 

44 61 

20 20 

20 30 

74 20 
74 72 
20 45 

04 
73 68 



STC1 



FCC 



FCB 
FCC 



C65B 04 
065C 33 
C660 *F 
C664 4C 
0668 20 
0665 04 
C66C 53 
C670 4T 
C674 32 
067* 2C 
C67 79 
C6fl0 6? 
C6S4 21 
C6 5 07 



63 63 74 
72 73 20 
65 66 74 
30 20 

59 4£ 54 
58 20 43 
52 4F 52 

20 74 72 
20 61 67 
69 6E 20 

04 



FCB 
STC3 FCC 



FCB 
S7Q5 FCC 



FCB 
STG6 FCC 



F B 



068 7 ££*> EOU 

EMO 
ERROB<S> OCTECTEO 





'Fab' 



'Mar' 



'Apr ' 



'M<»v* 



*Jun' 



•Jul' 



'Ai»9' 



'Sep' 



•Oct' 



*Hov* 





1 Cot»1og of Drfve mmfiftr 



ADDRESS 



Dittm Prot Str+ E*d* 



lO,iA,4 
■Olid: « 



'S«ctor» L»ft 



♦STMT AX ERROH. try 09a to M 



F NO OF Km FLAG 



SY»«0L 


. TABLE 


















ADOK 


C7CF 


AOGKt 


C2CE 


AGNH 


C2C3 


AUTTC 


C10E 


CAT 


CI 00 


CATO 


CI 4t 


CAT01 


Ct9f 


CAT0 1/1 


C1B3 


CATO 18 


CTA4 


CAT02 


CIC4 


CATOO 


C367 


CAT? 


02 2D 


CAT2A 


C2 


CAT2B 


C290 


CAT2V 


C19C 


CAT2X 


C28T 


CAT2Y 


C289 


CAT2Z 


C26A 


CAT 4 


C30D 


CAT4A 


C31C 


CAT4B 


C372 


CAT4C 


C32E 


CAT6 


C333 


CAT6A 


C539 


CAT69 


C542 


CAT9 


C35C 


CATfO 


C1 14 


CUCH» 0043 


CLNCNT 


CI08 


aK>FT 0000 


CLH.IM C1T3 


OEFFG 


C10F 


OCLCHR 0044 


DtiFG 


CI 13 


ORVFG 


CH2 


ERKV 


C297 


EWYX 


CI CI 


£W2 


C29A 


tJfPTHR 


0045 


EXPFLG CI 00 


EJCTI 


C3CE 


FOB 


Cft40 


FILONT 


CI 10 


FlEX 


COOO 


FNS 


0406 


FMSa^ 


M03 


FNDO 


C25E 


FWOT 


C230 


F*>2 


C25C 


F74D3 


C23B 


FOU*C 


C4A8 


I0XTW» CH7 


KEY 


1^144 


<FY1 


00 4F 


KEY2 


0047 


LBFNTR CC1 4 


IP1 


C416 


LP1A 


C4IE 


D>2 


C42D 


LP2A 


C44 1 


LP3 


C450 


U>4 


C452 


LP4A 


C45A 


lsttw ccn 


*4AT0 


C10F 


MAT) 


CI EC 


MAT1A 


C1EF 


KAT3 


C30£ 


MAT4 


C390 


HAT4A 


C370 


HATFLC CtOO 


KTH 


C4B4 


KTW1 


C408 


KAI40C 


CT84 


MCPftT 


C339 


t*CP«T1 


C36A 


HHSP 


C3F6 


NSP 


C487 


KXTCJM 


C027 


KXTWT 0498 


010 1 


CI73 


OLDIA 


CJ73 


OLOFG 


CI 16 


0PT1 


C34E 


0PT2 


C53t 


(FT3 


C569 


CPT4 


C572 


CPT4A 


C391 


CPT3 


C596 


0PT3A 


C581 


CPT6 


C3BB 


QPTCMf? 002B 


OPTION 


C34A 


OUTA0R 


C043 


OUTTJEC CO 39 


PASS 


0059 


PC«LF 


0024 


TOG 


C01E 


PKSG1 


C3C7 


PM5G2 


C504 


P90CH» 0030 


PRT1 


C4DF 


PRTIA 


C400 


PRT2 


C4EE 


PRT2A 


C4IC 


PftT3 


C4F0 


P*T3A 


C4FB 


PWT4 


05 OC 


PRT4A 


C50A 


PRT4B 


C520 


P*?T40 


C5t7 


PSPACE C5fl€ 


PTRO 


C109 


PT«S 


C107 


PUTCW CDTB 


«0T 


C*C€ 


RPTERR 


CD3F 


SAV1 


C200 


SAV7 


C2r2 


SAVPTH ClFA 


SHU 


C4t1 


SIZE 


CI05 


snp 


C49£ 


STOI 


C605 


STG2 


C&JE 


S1C3 


C633 


STG3 


C65C 


STG6 


C66C 


STGPTR CI »9 


STOJ« 


CI03 


TABU 


C505 


Vh 


C102 


*AWS 


0003 


tftXDRV 


ccoc 


ZEW> 


C6B7 



Here is * prcfrarr that T call ADIWKSS 
it is ar ^dc'ross look prof ran . The basic 
profrar is Hctrrt I.un<^s R^UCAT rro<iificc^ 
arc clsanfcd tc fit tlis applicaticr, so 
ruch ol the crcci t shoulc fo to 1 in*, A 5 
R. Lure suf^ested in thr, July £3' issue of 
tic Journal that the j>rofraf rrifht le 
useful as is or in another prcfran , it 
Ut ■>■ & . Anyone usinp this r r °rrair shoulr 
rcicr to the July F3 1 Sra ) 1 CM:? articles 
for reference* My version uses tvo 
irenu' s, a ir a i r iv e n u «rf ore v j t h the 
search corrnanc' that aJlows you to chanpe 
the Narre, A dc: re ss, City Slate f ?ir> or 
Phone number. It allov.s you to delete an 
entry. The rain allows you to prirt it on 
terrrinal or printer, exit to FLFX c-r 
insert a new entry. I hope this proprair 
is useful tf; .<orieon€. Arain F;0N thanks 
ier a CKKAT Mafazine, 



Joseph M. Aulicino 
20 3^ -59th Street 
Brooklyn, N.Y. 1120^ 



t mm$ * i.n. Aulicino 10-0c''B3 

t 

• A NC6flO? MttM Book prOQrti 

• Ntnu Orivfrt prO^rii 
t 

• Credit to R. Lund for hjs RAOCAT progr j* 

• fro* «hich 1 used urtf Houtir»%.,. 
t 

t 

• EQuittt 



3FFF 


nmm 


EOU 


I3FFF 


- Top of Ot\§ 


C003 


IHWKS 


£BU 


ICH3 


- Flti Ntri %t*f t 


C01E 


PSTRK6 


EOU 


ICD1E 


- Flft print stnftg 


CD24 


PCRLF 


EOU 


ICQ24 


• Hfx Print CrLf 


CD15 


sum 


EOU 


ICDI5 


- Fin 6ft ch«r«t»r 


C01B 


PUTCKR 


EOU 


ICD18 


- Fit* Put thirictK 


C8I0 


FCB 


EOU 


*C840 


- F1m Filt control block 


C03F 


RPTEJW 


EOU 


tC05f 


- Fin Report error 


DI03 


FUSCLS 


EOlf 


15403 


- FlfS Close 


CQ20 


SETFIL 


EOU 


ICD2D 


- Fin Pv« file »PK5 


CC14 


B^FKT 


EOU 


«CCH 


- Fit* Lint bu'frr pointer 


D406 


F«S 


EOU 


$0406 


* Fin Ui\ F1S 


6070 


^RAClfl 


EOU 


♦EC 70 


• PrinUr port 


ewt 


TIMCIA 


EOU 


JEQC4 


- Ur«in<l port 


DFEO 


PWT 


EOU 


tOFEO 


- Flex l/D port In use 


CC09 


PAUSE 


EOU 


tcco? 


• Flea Piuse Hj<j 



oioo 



ORB 10 100 





♦ Teto storiQf 






OJM 


Rtuop m 


2 


- «e*t entry 


0102 


TEMPI RHI 


2 




0104 


tem>? m 


2 




OtOo 


TEHP3 RRI 


2 




0109 


TEHP4 RftB 


2 




om 


TIWJ RRI 


2 




01X 


TSTM6 wa 


22 


* utel ',:.'.■; 



40 



6B* Micro Journal 



C122 8£ 0778 

0125 IF 

0126 A7 90 
0128 X jm 

01:1 :* fi 



• SET-UP -*BLE 

• itroi tht tabli »r** 

TA8Q.R LOC ITA1LE 

TACLA STA 0.:» 

C*! HEA7BP 
ft* Tftad 

« tmhthi* pnnttf pert 



- Oft libli iddr . 

- dt*r mtrv ublf 



- f«tt ACIA 
* lit ACiA to B bits 2 stop 



0157 90 0U7 JSR READ qtt iddrm H li 

♦ FIND FIRST E*TT CATRT 



0129 36 


03 


LDA 1103 


i\X B7 


E070 


STA PRAUA 


0152 B6 


II 


IDA 1*11 


♦ tI4 17 


E070 


STA MAC 1A 

» rtld filt into Mtory 
* *t*rtinq it ITAIU 



013A BE 


0771 


FlftO 


LOI 


ITABIE 


- point to tiblt 


0]!li A4 


94 




LM 


0,1 


- Qtt 1st fntry 


01JF 27 


1A 




IEO 


fsmo 


• if tntrr *0 «o«nA 


03(1 C4 


5E 


Fl 


LOI 


M4 


- tfltrr tut 


0i«^) 


01 


F2 


INI 




' IttP tltri till* 


0115 OC 


JFFF 




crvx 


l*HTOP 




014S 26 


09 




BNE 


NIT 


- 1* not KJfTQf 9ata lIT 


OitA K 


05Af 




LSI 


1*562 


• Tiolt Full 


014D BO 


CDlE 




JSR 


PSTRN* 




0150 20 


W 




BRA 


FOLWO 




©152 5A 




NIT 


DEC* 




- die 1 chrcl if at nf it in 


0153 26 


EE 




BA£ 


F2 




0155 A6 


to 




iW 


0.1 




0157 27 


02 




KB 


Fcua 




0)59 20 


U 




9RA 


Fl 




0151 IF 


0104 


FOUNJ 


>TI 


KITtr 


- lira nAffl fas* 






• 01SPLAV OPTIONS 1 6CT 


1NFUT 


01 SE ID 


CH4 


DISPLAY JSR 


PCR1.F 




0161 8€ 


04FA 




LOI 


INS61 


- ditpliy «*ou 


0164 ID 


COtE 




JS* 


PSTRJ8 




0167 M 


CDSS 




JSR 


BETOH 


- lit chir 


016A 11 


:i 




CVA 


H31 




016C 26 


02 




BNE 


DISI 


* Jl it 4 M" 


016£ 2* 


1C 




MA 


FJTEA 




0170 61 


32 


OlSl 


C*A 


1132 




0172 24 


03 




BNC 


01S2 


- it it j '2* 


0174 7E 


022C 




J HP 


SEARCH 




0177 Bl 


IS 


0152 


CNPA 


M33 




017» 26 


03 




m 


0IS3 


• it it i 'J' 


0171 It 


0377 




j* 


EUT 




017E 11 


34 


01S3 


CHPA 


MJ4 




0190 24 


02 




lAf 


0IS4 


- ll it * '«* 


0192 20 


41 




ISA 


LIST 




OL94 91 


35 


01S4 


CBPA 


H» 




0116 26 


0? 




INE 


otss 


- il it i *5' 


0199 20 


7A 




IRA 


PAIHT 




MA 20 


D2 


DISS 


m 


DISPLAY 


- if noni of ilovt do 19110 






• ente* una CATALOG 




OI6C II 


CW4 


EN1EI 


JSR 


PCRU 




01* BE 


MCA 




LOI 


•ASM 


- Um 


0172 90 


CUE 




JSR 


rSTRUt 




01*5 BE 


OlOO 




LOI 


NtlTP 


- pomtr to neit wtrf 


omc6 


16 




LOI 


122 


* cJurietir COlfit 


OUAtt 


33 




ISA 


MM] 


• 9tt n*m 


019C 10 


CI24 




JSR 


PCRLf 




019F 9E 


0511 




LOI 


IPI5BA 


- Ap|c m 


0IA2 » 


COIE 




JSR 


PSTRJS 




Oltt 9E 


OlOO 




LOI 


NEiTtF 


- Point tr to n«t «try 


0148 U 


IE 




LM 


IK 


* ChiTACtir COtflt 


OlAA Bl 


23 




IS* 


NAA1 


• 4jtl illrtii 


OlAC II 


CI24 




JS* 


?MU 




OJAf BE 


0501 




LOI 


KSS5 


- car. stitt 


0112 II 


die 




JSR 


PSIR1S 





0115 BE 


0100 




ux 


MEITQP 


- Poin^fr to ntit wtr? 


01B9C6 


IE 




LDI 


• 30 


- cMr*ct«f count 


01 IA BO 


13 




BSR 


*m 


- 9«t city, stitt I zip 


OIBC 10 


C024 




J5A 


PCRLf 




Ol«F BE 


05F2 




Lot 


IWS66 


- Phonil 


Old 10 


C01E 




;s* 


PSTHN6 




01C5 BE 


0100 




LOJ 


»»EITOP 


* Pomtif to rut «trr 


01C8 C6 


oc 




LCI 


IT2 


- cfcir«t« count 


01 CA 91 


03 




ISA 


MAAl 


- 9ft P<*ont 1 


Oltt 7E 


oi;a 


• LOAD 


HEIM 


FIAD 




OICF 10 


C315 


*AM 


m 


GETCfft 


- qtt tbir. 


0102 Bl 


00 




E*A 


1100 




t)!04 27 


10 




m 


«MA2 


• iKr »d miry 


0106 Bl 


OB 




cnfA 


•109 




0199 26 


05 




9K 


urn 


- if not IS totcr chir. 


OIOA 30 


IF 




DEI 




- 94CI M» JOtntK 


OIK X 






I CI 




- 160 to cMr, couM 


OIK 20 


FO 




3RA 


WAl 


- qit nut ttt^. 


OlOf A7 


90 


m* 


STA 


0,1* 


- ttort char, in Ubli 


OlEl 5A 






DECB 




- dtctrtfttnt ch«r. couit 


01E2 26 


El 




BNE 


NAM I 


- H not qit ntxt chir. 


01 1 4 20 


07 




m 


NAK3 


• fnd chir. fntfy 


01E6 16 


20 


NAA2 


LOA 


It 20 


- idd ipicn till cbif. exit «0 


01EB A7 


90 




STA 


0,^ 




01EA 5A 






5EC1 






010 26 


H 




ll€ 


NAA2 




OlEl Sf 


0100 


KAA3 


STl 


NEIT3P 




01F0 39 






ATS 










• LISI ENTIAE IOOC 




OlFl 9E 


0779 


LIST 


LSI 


I'ABLE 


• point to oe?innin9 of tillt 


01F4 IF 


0100 




STl 


NEror 




01F7 10 


01B2 


L!ST3 


JSR 


OUT 


- output miry 


OlFA IC 


01O0 




III 


NEITOP 




OifO 27 


02 




M 


LIST* 


- if NCITQP 11 :ico trt 


OlFF 20 


F6 




9AA 


LISTS 




0201 7E 


OIJA 


UST4 


JNP 


H«0 








» LIST OM PRINT9R 




0204 BE 


E070 


PRINT 


LOI 


IWACIA 




0207 If 


OfEO 




5TI 


PORT 


- ch*r>«f I/O port to pnitir/ 


OZOA 9E 


0771 




LOI 


ITA9U 


- point to top of titlt 


0209 IF 


0100 




STI 


lEITtF 




0210 94 


FF 




LOA 


•Iff 




0212 17 


CCOf 




STA 


PAUSE 


- dllJllf PJUM 


0215 19 


0Z92 


PR1HTI 


JSR 


OUT 


- print wiry 


021B 9E 


0100 




LOI 


NEITDP 




0211 27 


02 




IEQ 


PAINT! 


* H nEITQP a :*ro «*4 


0210 20 


F6 




IRA 


PR1KU 




021F 8E 


E004 


PRINT2 


LOS 


• I«WCIA 




0222 IF 


OfEO 




STI 


PORT 


* rtitort ttrtinil port 


0225 4F 






CL*A 






0226 17 


CCOf 




STA 


PAUSE 


- rtitort piuso 


0221 7E 


0131 




;# 


FI« 








• SEAACN FOR HA^ 




022C 10 


C024 


SEARCH 


JSR 


PCRLf 




022F BE 


063B 




LOI 


M5911 


- Sc*/ch for 


0237 ID 


CUE 




JSR 


PSTAW 




0235 BE 


01 X 




101 


•TSTRA6 


- point to tnt strut 


0239 ID 


CI13 


SEA] 


JSR 


*K* 




0239 91 


09 




CNPA 


HOO 


- i4 Cr ttid itfinj 


0231 27 


11 




BE9 


SEA2 




027 91 


09 




C*A 


••09 




0241 26 


04 




MC 


SEAIO 


* if not IS (tor* th*f> 


0243 30 


IF 




0€I 




- dtntrwnt pointtr 


0242 20 


Fl 




IRA 


SEAl 


- Oft nftt chir. 


0247 A7 


90 


SEAIO 


STA 


0.1* 


* itort chir, ifi tut ttrinf 


0249 BC 


0122 




CAP I 


ITSTRN6»22 


024C 27 


02 




9€8 


SEA2 




024E 20 


El 




MA 


SEA I 


- 9ft flflt Ch4T. 


0250 4f 




SCA2 


CLRA 




• tnt itriof 


0231 A7 


M 




STA 


0,1 




0253 II 


C924 




JSR 


PCRLF 




0754 H 


071A 




LOI 


ITA9VE-94 



68' Micro Journal 



41 



D25? if 


0106 




SIX 


:enp4 


- Wvt pointer 


0»C 94 


16 


SEA3 


LOA 


122 




025E 17 


0106 




sta 


7E*3 


- ttort Chi/, const 


0261 M 


0101 




LOI 


TENP4 




02 64 Cb 


5£ 




LOB 


194 


- entry lift 


0264 30 


oi 


SEM 


(NX 






026a 8C 


JfFF 




CNPI 


•n€NToe 




0261 26 


02 




m 


SCA5 


- if not flEATQP 


0260 20 


68 




BRA 


FJH 




026f 5* 




SEAS 


KCB 




- decrettnt eotry count 


0270 26 


fl 




OK 


SCM 




0272 IF 


0106 




STI 


TENP4 


- mi currint tntry 


0275 9f 


0104 




5TI 


TENP2 


- t*t trtie point r 


0278 9£ 


OLOC 


SEA9 


LOX 


irsifws 


- wjnt to test striqq 


021 * 


0102 




STI 


tempi 








I 8tl 


B froi TS18N6 




027E 1£ 


0102 


SEM 


LSI 


IENPJ 


• get pointer 


0211 Eft 


84 




III 


0,1 


- get ch«r. 


0283 26 


02 




m 


SEAT 


- Bone ' 


0285 70 


IF 




m 


MTCh 


- ill MtChW 


0207 JO 


01 


SEA7 


til 




* butp point* 


0289 BF 


0102 




sn 


TENF1 


- MVf It 



• ftt 6 froo tttJl/ 



02K B£ 


0104 


SEM LOt 


TENP2 


- get Uftjr pointff 


028* «t 


60 


LOA 


M* 


- gtt ctnr. 


029 J *C 


3fFf 


CltPI 


HIENlOf 


- done ' 


0291 27 


44 


KO 


F1PJ 


- li >e% etit 


02*4 7A 


0106 


tit 


IENP3 


- dtcreotnt c*>*r. coiftt 


02* 27 


CI 


m 


SEA3 


• if count «0 fjo nttt entry 


02*« 8F 


0104 


STI 


TENP2 




0291 31 


04 A1E0 


CBA 




- co^trfl thif. 


02A2 27 


6* 


•£0 


SEAi 


* if Ntcri Oft nett th*r. 


02W 20 


82 


860 


SCA1 


- retention pom to* 


024* IE 


0106 


AAIW III 


IE»T4 


- point to ntrr 


C2A9 8f 


0100 


STI 


NEW 




02AC If 


OLOA 


STI 


TENP5 




02Af 46 


14 


LOA 


0,1 




0211 27 


*9 


8C6 


SEA3 


- if open entry find next entry 


028: 8D 


039C 


JSR 


oun 


- print >t 


0216 8£ 


045F 


LBI 


8495813 


- Duntt Utv entry ? 


1289 10 


CUE 


JSR 


PSTAX 




02K N 


C615 


JSR 


6ETCHR 




028» 81 


59 


CAP* 


115^ 




02C1 26 


99 


WE 


SEAj 


* if no qet etit tfttrt 


OTCJK 


85FC 


LOI 


IftSS? 


- Art you lere 2 


02C6 80 


C01E 


JSR 


PSTRlfS 




02C1 66 


CD J 5 


JSR 


BCTCHR 




oacc si 


59 


CUPA 


1*59 




02CE 26 


8C 


PC 


SEA3 


- if no Oft nut Ootry 


0200 20 


IB 


860 


o*mi 


- foto clttge routine 


0282 IE 


010A 


8E1ETE LOI 


TUf>5 


- otl entry pointer 


02W 4; 




cum 






0204 A7 


84 


STA 


0,1 


- dear hflt tyte Of eotry 


8206 20 


82 


8RA 


sea: 




021*10 


C824 


FIN JSR 


PCRLF 




0200 BE 


0648 


LOI 


lNSol2 


- ICRI to continue 


0210 66 


oie 


JSR 


PS THE 




82H 80 


CJ15 


JSR 


(ETC* 


- Mil for keystroke 


02E6 4F 




cum 






82E7 7E 


013A 


JRP 


no 





ENTRY 



02EA BC 0474 DtfAfiC LOI 1119614 



02ED BB 


C8IE 


JSR 


PSfRM 




02f0 8€ 


0703 


LSI 


MS615 


- trial atnu 


02f 3 BB 


COIE 


JSR 


PSTIM 




02f6 88 


C615 


JS* 


8ETCM 




02ft 81 


SI 


CH*i 


If3l 




02FB 27 


IB 


8E0 


HAH 


- if T OOto n«w 


02fDB] 


32 


CPFA 


H32 




02Ff 2? 


27 


m 


ADDA 


- if *V goto iddr 


0301 Bl 


W 


CnPA 


H33 




0)03 27 


36 


BCQ 


cm 


- if *3' goto city 


0365 Bl 


J4 


CFtH 


MM 





0307 27 
0309 91 

0308 27 
0301 Bl 
030f 1027 
0313 20 
0315 80 
0318 9C 
0318 10 

o:ie BE 

0321 C6 
0323 80 
0326 20 
0328 80 
0328 SE 
0:2C 80 
0331 BE 
0334 C6 
0336 30 
63Z8 5A 

0339 26 
0338 C6 
033D 10 

0340 20 
0342 10 

0345 9t 

0346 U 
0348 IE 
034E C6 
0350 30 

0352 5A 

0353 26 
0355 C6 
0357 18 
035A 20 
035C 10 
035F 9€ 
0362 II 
0365 BE 
0368 C6 
036A 30 
036C SA 
0360 26 



0397 BE 

0385 A6 
0387 26 
0381 C6 

0386 30 
0361 6C 
0390 26 
0392 20 

0394 5A 

0395 74 
0397 Bf 
039A 20 
02,91 Bl 
039F C6 
05A1 A4 
0S63 10 
03A4 30 
03A6 6C 
03A8 27 
03AI 56 
03AE 26 
0386 81 
0383 U 



53 

35 

CS 

34 

FE27 

05 

ED24 

05CA 

COIE 

OIOA 

16 

01CF 

C? 

C924 

0501 

CUE 

OTOA 

16 

01 

FB 

IE 

OICF 

AS 

C024 

0568 

COIE 

OIOA 

J4 

01 

fl 

IE 

OICF 

8E 

C024 

05F2 

COIE 

OIOA 

52 

01 

Ffr 



036F C6 OC 
0371 60 OICF 
0374 16 FF73 



0377 IB 0I7C 

037A 60 7E 

Oi?C BO 042C 

037F 7E C003 



0100 

84 

13 

5E 

01 

JFFF 

02 

5T 

F4 

0100 

E6 

C024 

14 

84 

C0I8 

01 

3rTF 

46 

Fl 
C624 

IE 



A A* 



m 

CNPA 

Mfl 

CNPA 

19E6 

BRA 

LOI 

JSR 

LSI 

108 

JSR 

BRA 

JSR 

LCI 

JSR 

L1I 

LOB 

IM 

9£CB 

9NE 

108 

JSR 

BRA 

JSR 

LOI 

JSR 

J.01 

LOB 

iNl 

0E£B 

m 

LOB 
JSR 
BRA 
JSR 
LOI 
JSR 
LOI 
LOB 
PHCU6I1 [MI 
0EC8 



A006 



AODRI 



CITY 



CilTl 



fMORE 



ma* 

1135 

DELETE 
1134 

FIN6 

CHAM6E 

PCALF 

INS63 

PSTRW 

TENP5 

022 

KAMI 

CHAJft 

PCM.F 

|il«S4 

PSTRN6 

TEP9P5 

122 



OORI 

130 

AAN1 

CHANGE 

PCRLf 

MS65 

PSTR6G 

1EJ9/5 

152 



CUY1 

130 

NAfll 

CHAM6E 

PCRLf 

INS66 

PSTRIA5 

UNP5 

112 



PM06EI 



106 112 
JSR NAN1 
LIRA CHAN6E 



♦ EI1T ROUTINE 



Ell? 



• OUT 



OUT 



OUT I 



OUT 2 



oun 



0UT4 



JSR KLFIL 

ISR RENAfC 

JSR 6RITE 

JNP NARNS 



if '4 goto phont 
if V goto delttt 
if 6 goto other otnu 

N4M 

gtt pointtr 
*tt ch*r, cciunt 
gtt entry 
foto chinge emu 

Worm 

get pHtter 

^«t fldlf COUAt 

sup o»rr niot entry 



- c**r. count 

- gel entry 

- goto chmge etnu 

- City, Stitt 6 up 

- get pointer 

* gtt n>M • H4rti% count 

- clip ovif n«oe ♦ address entry 



set thir, co«ot 

■ get entry 

goto cH4ngi eonu 

PNoneO 

get pointer 

■ get futt ♦ iiims * city count 
skip njtt, ifidr. k city entry 



sot ch*r, count 
get entry 



delete old .BAt file 
■ renioes .DAT to JAX 
writes ne» .OAT 
tut to FtEl 



L&I 


NEXTOP 


- point to rfttry 


LOA 


0,1 


- get 1st th*r. 


BNE 


0UT3 


- if not print ll 


LOB 


194 


- get ntit entry 


IRI 






CNPI 


INO1T0P 




8NE 


OUT2 




BRA 


OUTB 


- eiit 


OECB 






INC 


0UT1 




STI 


KXTQP 




BRA 


OUT 




JSR 


PCRLF 


- out CrLf 


LOB 


•22 


- set thif, count 


LPA 


0,1 


- get eh*. 


J Si 


PUTCH! 


- outoot ch*r. 


m 






cm 


6NERT0P 




lEfi 


0UT6 


- if it *HT[I» eiit 


OECB 




- dtcreoent cnir. count 


ONE 


OUT 4 


- if not gtt ntit thif 


JSR 


fCIU 




LB6 


1)6 


- *et char. coMt 



42 



68* Micro .lournai 



0313 A4 


84 


9UT3 


DA 


0.1 


* ;et ch*r. 


0317 3D 


CD16 




:sr 


pure* 


• output clur. 


03BA SO 


01 




INI 






ojic ac 


3FFF 




C*I 


HEATOP 




03BF 27 


32 




KO 


aura 


- if it «€«TOP hit 


OJCi 5* 






DEC! 




* tffcrfirM chitf. Cflant 


03C2 2k 


n 




&* 


ours 


• if rat ?tt nut inar. 


03C4 BD 


CD24 




JSR 


PCRIF 




03C7 C6 


IE 




LDB 


139 


* lit char, cowl 


0JC9 A4 


84 


0UT6 


IB* 


0,1 


- att CfiiT. 


03CI ID 


C018 




JSR 


wo* 


- output chir. 


03B 30 


01 




lul 






u:w ac 


Vff 




C*l 


tnfllTOP 




•3W 27 


IE 




BEfl 


OUT! 


- K «t ^ATOP nit 


0305 5A 






kcb 




* iecrtoent chir. count 


o:o* 26 


Fi 




m 


OUT* 


- if nflt ?ft rOlt Cri4r< 


03W II 


C024 




j» 


PCRlf 




0308 C6 


X 




LM 


112 


- »tt CMr, C00Pt 


O'M 46 


ft* 


0UT7 


LDA 


0,1 


* output cn»f. 


o:of io 


c&u 




JSA 


PUTCHR 




03E7 30 


01 




INI 






o;e« 8c 


3FFF 




CltPl 


ia&W 




03E7 27 


OA 




BEB 


0UT8 


- if a T€«7QP tnt 


03C1 5A 






OECI 




• decrietnt en v. courvt 


CTEA 24 


Ft 




6* 


0UT7 


- if not fit n*rl Char 


o:cc io 


t»24 




JSU 


PCRIF 




D3EF IF 


0100 




5TI 


NUTQP 


• Store current pointer 


0JF2 39 






MS 






0JF3 7f 


0100 


OUT* 


cut 


KEIT9P 




03f* 7F 


0101 




OJ 


*ITQP*l 




03F9 19 






W 







U4*2 16 OF 

m&i ;o Ft 






MITE] 
«RKTE4 



i CLOSE FILE I EUT 



« *EA*C FILE ROUTINE 



03FA BE 


»73 


REftA* 


LDI 


•FC8*53 


- put .BA* <uif into FCB 


tJfl 108E 0A» 




LDV 


IAS69 




U401 44 


AO 


REHl 


LM 


0,^ 


- ^tt nine ctar. 


0403 81 


04 




C«PA 


14 




0403 27 


04 




BEB 


*EW 


• check for cud of mji 


0407 A7 


90 




ST* 


0,I« 


• store char, ift FCB 


0409 20 


fb 




BAA 


REHI 


- jet nett chir. 


<?«0I if 


0615 


RER2 


LDI 


IASS8 




040E IF 


£114 




STi 


iUFPtlT 


- set Winter to , DAT rui 


04ll if 


CB40 




LDI 


•FCI 




DIM II 


:o2i 




JS* 


SETFU 


- Jlrw ill* ipec 


0417 2) 


04 




ICS 


ERROM 




0419 It 


09 




IDA 


113 


* rtfltM Junction code 


04 LI 47 


84 




57* 


O.I 




0410 »» 


04O6 




JS* 


m 


- do remn* function 


0420 26 


01 




NE 


EWDR4 




0422 3? 






RT5 






0423 10 


CD3F 


EHRW4 


JSA 


RPTERR 


- report 9try 


0426 »» 


04O3 




JS* 


FUSCLS 


- close hie 


042* 7E 


CW3 




J* 


«««ms 


• eiit to Flei 



l>46© 8E 


C840 


dR!TE2 


LDI 


IFCI 


* point to FCB 


■4t« 86 


04 




LH 


14 


* Ciosc 'unction 


046B A7 


84 




STA 


0,1 




< 460 10 


[404 




I8D 


F^S 


* do close 


0470 21 


01 




m 


MRITE3 




*m ^ 






RTS 










• ERRQF 


t HANDIER 




#473 19 


:d* 


•RITE3 


J3R 


RfTEFW 


- r*cort «rror 


or. BD 


W63 




JSR 


FSSC.S 


* clow nle 


0479 7E 


CKr3 




JNF 


•AH« 


• ent to Fiet 






♦ DELETE FUE 






C47C 8C 


0*2£ 


OCLFIL 


LDI 


MS6I0 




047F Bf 


CC14 




STI 


8LFPIT 


- ut pointer tc filt rti«t 


04B2 K 


C840 




LDI 


IFEI 


- point TO FCI 


V*8S 81 


CD2D 




JSft 


GETFIl 




C488 25 


On 




DCS 


DELI 


* if jrror close file 


04 BA 86 


0€ 




LOA 


It2 


- tfittt t unction codf 


046C 47 


34 




ST* 


O.i 




G4K BD 


0406 




;sa 


fp*S 


* do delete function 


04^1 2b 


01 




BbE 


KL) 


* 1* «rror dose fi;e 


0493 39 






RTS 






019* * 


Ci« 


DELI 


LDI 


IFCI 


- Point to FCI 


0497 46 


01 




LDA 


1,1 




v4* 81 


04 




C*A 


14 




OltB 24 


01 




B« 


KL2 


f not c3F error licit 


0499 39 






NTS 






04?E BO 


£D3f 


oa 2 


JS« 


RPTER* 


- report trrar 


04At ID 


D403 




JSR 


FHSCLS 


• ciose hit 


04M 7E 


CD03 




J* 


iarhs 


- ent to FJri 






i READ FILE 






04*7 8E 


061) 


READ 


LDI 


lASnB 




4(6 IF 


CC14 




STI 


9UFPWT 


* set pomier to flit n*t* 


(4AD BE 


cs«o 




LDI 


IFCI 


' Point to FCB 


0410 BD 


cm 




JSR 


KTFk 


- pirSC fill ipic 


V4B3 :) 


39 




ICS 


READS 




V4B5 W 


01 




LM 


II 


* rtid tunctiaa codi 


0417 *7 


84 




STA 


0,1 




M89 ID 


0406 




J5« 


FH$ 


* do re4d function 


04BC 24 


30 




m 


REAU 




04BE 6F 


84 




CL« 


0,1 




o«C0 86 


ff 




IDA 


•IFF 


- set for no spice coopre*i 


04tt «7 


B8 39 




STA 


5M 





« VfttTE TO 013 ROUTtK 



• READ REflQflT 1KA8E 



042C K 


0771 rtlTI LDI 


ITAJU 




04C5 K 


C840 


READ1 


,01 


IFCI 


- point to FCI 


042F BF 


010? 


STI 


Tfnpl 


* i*ve Pojotir 


04C8 iO«E 0771 




LDir 


ITAJU 


* point to ttile 


0432 K 


0413 


LDI 


IWSS8 




04CC Bl 


0404 


READ3 


;» 


FRS 


- dtt cb*r. fron file 


0435 IF 


CCM 


STI 


lUFPHT 


- sit paintir to file naif 


04CF 24 


OA 




INE 


READ2 




0431 K 


CMO 


LDI 


IFCI 




0401 A7 


M 




STA 


O.v 


- store in table 


0431 M 


CD» 


JSff 


6E7F1L 


• pjrie file spec 


0413 106C 


: 3FTF 




im 


IREJ4T0P 




043E 23 


33 


ICS 


mm 




0407 27 


01 




BEO 


READ4 


- if it ICRT0P qo dose file 


0440 34 


02 


LOA 


12 


- *riti function co<Je 


04D9 20 


fl 




IRA 


READS 




0442 A7 


14 


STA 


0,1 
















0444 II 


D404 


J5H 


f«5 


- do opm for ■rite 






• EWOF 1 




0447 24 


2A 


BNE 


WITE3 
















0449 6F 


84 


CLR 


0,1 




0401 9t 


C840 


REM2 


LDI 


IFCI 




0441 84 


FF 


LDA 


•IFF 




D4D€ A* 


01 




IDA 


1»1 


• let error code 


0440 A7 


89 31 


STA 


59,1 


- no spue coApreisioo 


44E0 ei 
04E2 24 


08 
OA 




Cft>* 
BNE 


II 

REW>J 


- if not EOF error go otktr error 



• NRITI RiKKT lAAfiC TO 019 



0430 K C840 
0e5J 10K 0102 
0437 A4 AO 
0439 IMC 3FFF 

0431 27 07 
043F 80 0404 



«ITE1 



«1IE4 



LPl 
LM 
LDA 
CPTf 
lEB 
JSff 



IFCI 

TElfl 

O t r. 

INENTOF 

Nf[TE2 

F«S 



• FCI pointer 

- tiAlt pointer 

- git rJur. froa table 

• if it *rW* dose File 

- trite ch*r. to file 



04E4 94 04 

04E4 A7 B4 

04E* II 0404 

04U 24 01 
04ED 39 



• CLOSE FILE 4 EXIT 

REAM LDA 14 

STA OJ 

JSR FRS 

m READ3 
RTS 



Close file function 
do file dost 
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I 40 FEU EAflK 


OIK K 


CB40 


KAN 


Iftl IFCI 


04F1 44 


01 




LM 1,1 


mz 81 


04 




C*A II 


04P5 24 


n 




3K REAB4 


wn * 


MX 




jw *in 



- gtt iff or codi 

- if not no fill trror go clow 



• RtlSiQM 



04FA 70 20 2A 2A 4SSI 


WE 24 2A 2A 70 


054? 54 4ft 6f 6£ 


0506 65 20 42 4f 


050* if 64 20 2* 


ft* 2* 2A 2A 2A 


0512 Oft M 


Mil IS 65 77 20 


0518 45 6E 71 72 


05JC 79 2£ 2E 2E 


0520 2f 2E 2E 2E 


0521 2£ 2£ 2f 2E 


0528 2£ 2E 28 31 


05X 2? 04 04 


05* 55 65 41 72 


0533 63 40 20 44 


0537 6f 72 20 6£ 


0531 61 6ft 65 2£ 


05? 2E 2£ 2E 2E 


0543 2E 2E 28 32 


0547 29 01 04 


0544 45 78 6* 74 


054E 20 74 4f 20 


0552 U bC 65 78 


0556 2E 2E 2£ 2E 


0534 2f 2E 2f 2f 


055£ 2E 2E 24 33 


0562 2f 00 04 


0543 4C 69 73 74 


0549 20 20 47 4f 


0548 4f 61 2E 2E 


0571 2E 2£ li 2£ 


0575 n 2E 2£ 2E 


0579 2E 2E 29 34 


057D 29 00 04 


0580 50 72 49 4£ 


0584 74 20 12 4f 


0588 4F 44 2E 2E 


038C 2E 2£ 2£ 2E 


0590 n 2E 2E 2E 


0594 2E 2E 21 33 


0591 7f 00 m 04 


059C 04 


0590 IS 6f 74 65 


0541 72 20 S3 45 


05Afl 4£ 45 43 74 


0549 69 4F 6f 34 


OSM 20 04 


03* 24 2A 2A 20 NSS2 


0513 41 4C 4C 20 


0517 45 4£ 54 52 


0581 49 15 53 20 


05* 44 55 4C 4C 


05C3 20 24 2A 24 


WO 01 04 04 


05(4 4£ 6) 61 65 *583 


OSCC 34 20 04 


0581 41 64 64 77 HSW 


0505 45 73 73 34 


0549 20 04 


05N 43 49 74 n KfiS 


058F 2C 20 S3 74 


03C3 41 74 45 24 


Old 54 49 7t 20 


05O 43 4f 44 43 


OS£F 34 24 44 


0*2 50 61 4f 4C I95S4 


05F6 45 20 23 34 


05FA 24 44 


OSFC 41 72 45 20 4S87 



FCC ' ••••• Pfiottt look •••••'. 10. 14 



FCC torn Entry <)> ,10,14 



FCC Starch for »jm 121'. 10, $4 



FCC hit to Flu (31', 14,44 



FCC list book (It'.tD.fA 



FCC Print loci tS> .10,14,14,14 



FCC EntK SilKtiMi ,4 



fCC '»« 4U WRfES FULl ••• ,40,14,4 



FCC Kim: \4 

FCC Mdftttt ,1 

fCC Cttf, Stilt lip comi .4 



FCC Plott Is ',4 



FCC 4m fw u/t? H v 4H ,4 



0400 79 
0604 73 
0608 3f 
060C 20 
0610 48 

0414 04 

0415 4] 
0619 42 
0610 2E 

0421 08 

0422 41 
0426 42 
0424 42 
062E 41 
0432 42 
0434 2E 
0*34 oft 
0638 55 
063f 63 
0643 6F 
0447 04 
064B IS 
044C 72 
0654 52 
0654 bf 
9458 4E 
065C 75 
06* 43 
0643 67 

0447 64 

0448 45 
044F 79 

0673 04 

0674 4€ 
0471 2E 
047C 2£ 
0480 2E 
0684 2£ 
0448 31 
04K 41 
0*90 45 
0494 2E 
0494 2£ 
069C 2E 
0440 52 
0444 43 
0640 K 
064C 61 

0640 2£ 
0614 2E 
0688 33 
06K 50 
06CO 65 
06C4 2£ 
04C8 2E 
06CC 2£ 
0400 34 
0604 44 
0601 74 
060C 4£ 
04E0 2E 
04(4 2E 
04U 35 
04£C 4C 
04f 68 
Oif 4 45 
04F8 2C 
Otf C 2E 
0700 34 

0704 04 

0705 43 
07O9 67 
0700 48 
0711 34 



4F 75 20 

75 72 45 

20 28 59 

6F 72 20 

2? 34 20 

14 44 32 

4f 4F 48 

44 II 54 

44 41 52 

4F 4F 41 

41 4ft 04 
44 44 52 
6f 4f 48 

42 41 48 

65 61 72 

68 20 66 

72 31 20 

6E 74 65 

20 3C 43 

3E 20 74 

20 63 bf 

74 49 «f 

65 0* 

68 61 6* 
65 20 74 

69 73 20 
6C 74 72 
20 3F 20 

61 60 65 

2E 2E 2E 

2£ 2E 2£ 

2£ 2E 2£ 

2£ 2C 28 

29 00 04 

44 64 72 

73 73 2E 
2£ 2£ 2£ 
2£ 2E 2E 
2E 2E 2H 
^ 00 04 
69 74 7? 
20 53 74 

74 65 2£ 

2E 2E 2E 

2E 2t 28 

29 00 04 

68 4f 6€ 
20 23 2E 
2£ 2E 2£ 

2£ 2£ 2£ 

2£ 2£ 28 

29 Oft 04 

65 6C 63 

43 20 45 
71 72 71 
2E 7i 2E 
2E 2E 28 
29 Oft 04 
4F 20 43 
41 4£ 67 
2E 2E 2£ 
2E 2€ 2£ 
2E 2E 28 
29 04 04 

48 61 4€ 

65 20 n 

69 63 48 
20 04 



ASfiS FCC 4J>{W800K.M| ,1ft 



!l«9 FCC 



ItSSlO FCC 



AOOWfefcAJ ,4 

4ftftR800i.WK.fO 



H5611 FCC SttfZh for: ,4 



•IS612 fCC £ot«r <tt> to cofitim ,4 



P1S813 FCC Thi^t thu ootry *> ,1 



AS814 FCC Aim ID'.fO.SA 



FCC A44rm I2>MI,M 



FCC mi, Stitt (31 ,1ft, 14 



FCC how I i4r.fD.4A 



FCC Oilitt MtfT 0).fO,IA 



FCC *> cK*nft 141 .fO.IA.I 



AS815 FCC O»«oi -MCU ,4 



0778 TAJti 



cou 

E» 



♦ ♦100 
TA8CLR 



EAtORISI 8CTECTO 
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ACM 0J2fl 


MM] 


0334 


BUfPUT CCl» 


CXMGC 02£4 


cm 


0342 


CITYl 03)0 


mi 


OW 


06U 04 H 


fi€L£T€ 0212 


aetFit o«tc 


9IS1 0170 


DIS2 


0177 


DlSJ 017E 


0154 01B4 


01$) 


OLBA 


01SPVA 01X 


EttTEIt 


OIK 


EH(W< 0423 


E1IT 0377 


Fl 


0141 


n 0143 


FCI 


CB40 


f!l 020A 


HW 0I3A 


F* 


0406 


was moj 


***• 


01)1 


SCTCMT CDt) 


6CTFJL CM* 


UST 


OlFl 


LISlJ 01F7 


UST4 


OKI 


MTCH 0246 


»€AT0P JfFF 


«5«l 


MM 


*S6l« 042E 


flStil 


at;! 


"S&12 0648 


rtS6l3 065f 


NS6H 


0674 


«S6l5 070$ 


PS62 


<w 


K€3 (ttCft 


**4 tfOl 


«6) 


WW 


*S4 0*2 


HS67 


oyc 


N5M 461) 


«61 062? 


HAM 


OICF 


iMf? 01(6 


<MM3 


01EO 


W* OlOf 


W€ C>3I5 


C1TV 01M 


lilt 01)2 


OUT 


0382 


outi o;h 


0C!T2 U394 


00T3 


039C 


0UT4 03M 


OUT) 


0JI5 


0UT6 01M 


OUT? 03W 


0UT9 


03F3 


P*K CC09 


WLf 


CD24 


?MONE 035C 


MJtfi <jlW 


tot 


DfEO 


***:« £070 


MINT 


0204 


Pflimi 021) 


PH1AT2 C2lf 


PSTAH6 C01E 


WC* CDlfl 


ACAD 


0IA7 


*AD1 04C5 


"EAD2 OIOI 


READ3 


04£E 


*1AIU HU 


flEfl05 


v4CC 


REM! 040] 


»E« 0401 


Rf«*€ 03FA 


fiPTEftf C&Sf 


5CAI 


0238 


5EA10 0247 


36A2 07)0 


SEA3 


02X 


tfM J26& 


5£W 


024f 


H*4 027£ 


S«A7 0?B7 


SEA8 


02SC 


5W 0?7i 


3EAHC* 022C 


TAKID 0122 


TAKE 07'$ 


TACl* 


0124 


TEMPI 0102 


Tfc*»2 


0104 


TE*3 0106 


TEAM 0IQ6 


1E*5 


010A 


TNACU £M< 


!STR« Q1QC 


HARKS COOJ 


«]Tf 042C 


WITE1 


04)0 


MJTE2 QU4 


WNT£3 OIM 


441TE4 04)7 









ANALOG TO DIGITAL, 
DIGITAL TO ANALOG 

12 BIT ANALOG to DIGITAL. DIGjTAL to ANALOG CONVERTER 

Ron Anderson has designed 12 bit 16 channel Analog to 
Digital converter (to which J have made some 
modifications) using a National Semiconductor 
AOC1210HCO; and I have assembled a 12 bit Digital to 
Analog converter using an Analog Devices AD567KD to be 
constructed on a Thomas Instrumentation SP-1 board- 
Tom Gluyas of Thomas Instrumentation has agreed to sell 
the SP-1 without the 4 6850's for SI 7 5 assembled and 
tested, tf the analog amplifiers ore built on the board, 
there will not be sufficient room to be able to utilize 
the 6850's unless no other ports ore needed. (I 
assembled the bare board and had spent about $125 to 
get the board ready for wire wrapping- I wish that I 
had asked about buying the board partially populated — 
the extra $50 would have been well worth the cost.) The 
parts cost for the basic AD and DA circuits Is about 
1175 with each 0-20 mv amplifier being an additional $30. 

D/A CONVERTER 

The D/A converter Is designed to give a +/- 5 volt output 
range for a digital Input of 4095 and 0000 respectively 
(FFF to 000 hexadecimal). Actually the output Is 
adjusted to +4.9976 and -5 .0000 for these Inputs as 
most calibration procedures recommend adjusting the 
output to 1 LSB less than the nominal range. (The device 
may be readily reconfigured to give 1o +10, +/- 10 or 
+/- 2.5 volt output. A different output amplifier might 
be necessary In order to Implement the 10 volt versions 
as the 12 volt supplies do not usualry have sufficient 
drive to make a bipolar transistor output stage go to 10 
volts.) The circuitry Is based on That In the Analog 
Devices data sheet for the AD567, but the 6821 allows 
the device to be wired as If the computer had a 12 line 
data bus with a 2 line control bus. Trie diagram for the 
converter and the 5.000 volt reference Is given on 
figure 1. 

Through use of the 6821 P]A, the computer may be made to 
appear as If It had a 12 line data bus* The 6821 Is set 
up to simultaneously output a 12 bit word to the AD567 
with the 8 LSB's stored In the side A registers and the 
4 MSB's stored In the side B ones. .When the MSB's are 
read Into the 6B21, bit 7 must also be forced to as It 
Is used to control the NOTCWRITE) Input of the D/A. The 
CB2 output of the 6821 Is programmed to momentarily go 
low on the next E clock transition otter the MSB's have 
been strobed Into the AD567. The chip latches the data 
and then makes the conversion which may take 500 ns 
during which time the 6821 may be readdressed. The 
procedure In the sample software should be followed In 
order to properly sef up the 6821 and to strobe the 
data Into the AD567. 



To calibrate the AD567. first send $0000 to the 
converter and adjust trimmer R1 to give exactly -5.000 
volts. Then send $0FFF to the chip and adjust R2 to 
give +4.9976 volts. Recheck both adjustments and the 
calibration Is complete* 

If you want to have some fun comparing the speed of 
assembler, PL9 and TSC BASIC programs, then try the 
following ones which generate a sawtooth. They also 
allow you to see If the hardware Is functioning properly. 
Be prepared, however, the assembler and PL9 programs 
will need an oscilloscope 1o monitor the output giving 
values of about 43 and /5 mllllsec respectively, whereas 
the BASIC program will require a strip chart recorder or 
a very slow sweep on the scope as ft Takes 13.5 seconds! 

* SAWTOOTH WAVEFORM GENERATOR PROGRAM FOR AD567K ON 
A 

TH04AS INSTRUMENTATION SP-1 BOARD 

BOARD BASE ADDRESS AT $EI00 AS PER GIMIX FLEX 

* PIA 11 ON BOARD USED FOR 0/A 

■ ■■ ^■ ■■■■■■ ■■ ■■■■■■■■ ■ ■■ ■■■M ■■ ■ •■■■■■■■■■»■■■■■ 

by J. A. McDanlel * 

* University of Maine ot Farmlngton * 
39 High Street 

* Farmlngton, Maine 04938 * 

* August 15, 19B4 ♦ 

iwrtHMtllt i m lii w t ■■■■ 



START ECU $0000 
LOA #$0 
STA SE111 



STA SE113 

LOA #$FF 

STA $E?10 
STA $E112 
LOA #$04 
STA $E11 
INTERRUPTS 
LOA #$2C 
STA $E113 



BASE ADDRESS OF SJO£ A CONTROL REGISTER 
PREPARE TO ADDRESS OATA DIRECTION A 

BASE ADDRESS OF SIOE B CONTROL REGISTER 
PREPARE TO ADDRESS OATA OIRECTION B 

SJOE A OATA OIRECTION. SET FOR OUTPUT 
SIDE B OATA OIRECTION, SET FOR OUTPUT 

1 SELECT SJOE A OUTPUT REGISTER, NO 



SELECT SIDE B OUTPUT REGISTER, AND 
SET C82 AS OUTPUT NO INTERRUPT^ 
CLRA 
CLR6 
AGAIN LOO #$0000 
UP ADOO #$0001 

STB SE110 LOAD LOW OR0ER BITS 

notcnI.Ye.IU' 2 L0A0 h,GH oroer b,ts and force 

O4P0 #$0FFF 
BNE UP 

BRA AGAIN 
END START 



r 0/A OONVERTER TEST: SEPT 14, 1984 GIVES SAWTOOTH V 
ASPE*T AS ,NSTRUMENTAT,0N SP-1 f BOARD A0DRESSE0 AT $EI00 
GIMJX FLEX, D/A USES PIA 11 AT SE110 TO $E113 V 

/♦BY J. A. MCOANIEL 

UNIVERSITY OF MAINE AT FAftMINGTON 
39 HIGH STREET 
FA«MINGTON, MAINE 04938 V 

ORIGIN - $0000 

GLOBAL BYTE LBIT, MBIT; 

STACK •; 

AT $E110: BYTE OOL(O), 0ATAL, CONL: 
AT $E112: BYTE DOH<0>; OATAH; WNm) 

PROCEDURE PIA SETUP; 

£2& ' }88 r/m PREPARE TO AD0RESS DATA OlR V 

CONH ■ $00; 

0D«. - $FF; /• SET FOR OUTPUT V 

DOH - $FF: 

CONL ■ $04; /• SELECT SIDE A AS OUTPUT NO INTERRUPTS 

OUTPUTV" $2C; r SELECT SI0E B AS 0UT WITHC822 AD 
EfOPROC; 

PROCEDURE \X>\ 
LBIT - $00; 
I© IT - $00; 
REPEAT 
REPEAT 

0ATAL ■ LBIT; 
OATAH- >eiT; 
LBIT - LBIT + SOI; 
UNTIL LBIT ■ IFF; 
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DATAL - LBIT; 
DAT.«,H ■ MBIT; 
MBIT - W\T ♦ $01; 
LBIT * $00; 
UNTIL >€IT «$10; 

PROCEDURE RUN; 
PIA SETUP; 
REPfAf 

UP; 
FOREVER; 

10 REM D/A CONV TEST PROGRAM 9/14/84 GIVES SAWTOOTH 

OUT 

20 REM FILE NA>€ DA-SAW3.BAS 

22 REM USES THOMAS INSTRUMENTATION SP-1 BOARD AT SE100 

24 REM BY J. A. MCOANIEL. UNIV. MAINE AT FARMJNGTON 

30 REM USES PIA 11 ADDRESSEO AT DATA A $E110; CONTROL A 

$E111 

40 REM DATA B $EU2; CONTROL B SE 1 1 3 

45 POKE HEX ("El I1"),0:P0KE HEXCE11 3"),0: REM PREPARE TO 

SET 

50 REM DATA DIRECTION REGISTERS 

60 POKE HEXrei10">,HEXrFF">:P0KE HEX("EU2 ,, >,HEX("FF"> 

65 REM SET BOTH SIDES AS OUTPUT 

70 POKE HEX("E1H">,4: REM SET SIDE A AS OUTPUT NO 

INTERRUPTS 

90 POKE HEX( rt E1iy , ) > HEX( ,, 2C ,, >: REM ENABLE C822 AS OUTPUT 

TO 

100 REM CONTROL 0/A NOT SELECT- MSB OF B USED AS NOT 

WRITE 

130 FOR N* - TO 15 

MO FOR I* ■ TO 255 

150 POKE HEX<"E110">,I* 

160 POKE HEX<"E112"J,N* 

180 NEXT II 

190 NEXT N* 

200 GOTO 130 

220 EM) 



A/D CONVERTER 

The design for the A/0 converter was taken from the 
applications 

ir+eraturo of National semiconductor with the analog 
switching, ♦/- 10 volt amplifiers and Interfacing to the 
6821 designed by Ron, The reference and to 20 millivolt 
amplifiers are of my design. The cost of the amplifiers 
may be significantly reduced by using cheaper amplifiers 
than the AD647KH specified, but 1 prefer the Analog 
Devices ones, for they always perform as expected and 
often require no trimming- The reference voltage for the 
A/D, the switches and the channel selectors Is derived 
from the excellent 10.00 reference of the A0567KO. 
Figure 2 gives the diagram for tha to 20 millivolt 
amplifier; Figure 3 gives the diagram for the A/D 
converter and tne +/- ID volt ampllfle s. 

The basic A/0 converter Is designed for a to 5 volt 
Input, and thus has a resolution of 1.221 millivolts. The 
analog ampNfler-scalars to scale a +/- 10 volt, and to 
20 or +/- fo millivolts (easily changed to other values) to 



tha requisite to 5 volt range are described. BASIC 

rrograms are described which: fl J makes an Input of ♦/- 
amplifier yield +204? and -2048 respectively CRWAK and 



(2) makes an an Input of or 20 millivolts yield 0000 or 
4095 respectively. 

The basic calibration Procedure Is to apply a voltage of 
5.0000 to pins 18 and 19 of the ADC1210HCD and then 
adjust the 5 volt reference supply until the LS8 flickers 
equally between and 1 with ail other bits being off. 
Then a voltage of 0.0006| volts Is applied to pins la and 
19 and the *ero adjust (Rl on Figure 3> Is adjusted until 
the LSB flickers between and 1 with all other bits 
being on. (The converter Is operating In the 
complementary binary output mode, and a snort PL9 
program Is given below which outputs a hex word equal to 
the converter output, the Inverse of the hex word, and 
the actual voltage Input on a to 5 basis. 

After the A/D has been calibrated, the sample and hold 
should be connected and zeroed. With the AD647K no 
zeroing was really necessary as the amplifiers can be 
offset slightly to compensate ft. (If It Is necessary to 
zero the sample and hold, a zeroing circuit like the one 
on the +/- to volt amplifier may be added. But notice 
that the sample and hold then has a gain of 1.02 as does 
the+/- 10 volt amplifier.) 



The to 20 millivolt amplifiers may be set up as follows; 
with 0.0000 volts In, adjust RB until the output of the 
first ampllfle Is O.OQOOas Indicated by the voltmeter. 
(If exactly can not be attained, then set the output 
so that It is slightly negative.) Then adjust R9 until the 
output of the second amplifier Is 0-OOO0. If the output 
of the first amplifier Is not 0, then that Is permissible, 
but the output of the final amplifier should be set to - 
10 times the output attained by the first by adjustment 
of R9. After these adjustments are finished, R10 should 
be connected to the -15 volt supply and adjusted until 
the output Is 2. 500 volts. The amplifier Is calibrated 
for a to 20 or +/- 10 mlllWoft input depending on 
whether R10 Is connected or not* If the amplifier Is only 
needed for + voltages, then omit R10 and the associated 
resistors. 

10 REM D RIVER FOR 12 BIT A/D CONVERTER IN BASIC 
20 REM ' ■ 

25 REM *• BY R. W. ANDERSON ~ 
30 REM •• ANN ARBOR. MICH ~ 
35 REM " ■ """ **** " *»« """ * 

40 REM PORT AD0RESS IS SE100 ON SAMPLE PROGRAM, 
50 REM BUT MAY BE CHANGED TO ANY CONVENIENT 
60 REM 1/0 AD0RESS— CV IS Variable FOR CHANNEL 
65 REM NUMBER OF A/D 
70 GOTO 310: REM SKIP SUBROUTINES 
80 REM 

90 REM FIRST THE PORT INITIALIZE SECTION 

100 POKE HEX <"E110">,0 : POKE HEX <"E11F"),0 
110 POKE HEX ('•E11C M ),0 r POKE HEX ("E1IE">,HEX <"F0") 
120 POKE HEX ("E11D">,4 : POKE HEX (•'E11F"> t HEX ("3C") 
130 RETURN : REM THIS IS A SUBROUTINE 

140 REM 

150 REM THE CONVERT SUBROUTINE 

160 CV* - CV* • 16 : REM LEFT SHIFT FOUR 

PLACES 

170 POKE HEX ("E11E"),CV* : REM SET UP CHANNEL 

NUMBER 

180 0AS * PE»C(HEX("£11C">> : REM CLEARS CONVERSION 
185 REM COAfLETE FLAG 

190 POKE HEX ( w E1IF w ),HEX( w 34' t > : REM TURN ON CONVERT 
PULSE 

200 POKE HEX ("E11F"),HEX("3C") : REM TURN CONVERT PULSE 
OFF 

210 ST* ■ PEEK<HEX(TI10"» : REM READ STATUS 
220 IF ST* < 128 THEN 210 : REM WAIT UNTIL HI BIT IS 

ON 

230 0A*-(PEEK(HEX("EI ?E">> AND 15) • 256 + 
PEEK(HEX<"€11C"» 

240 IF 0A* > 2047 THEN DA* - DA* - 4096 
245 REM ADJUST FOR NEGATIVE VALUES 
250 RETURN 

260 REM NOW YOU KAY ADO THE VALUE 06TAINEO TO A 
270 REM REAL VARIABLE FOR SUMMING AN0 AVERAGING 
280 REM PROGRAMS. 
290 REM 

300 REM TEST PROGRAM 
310Q0SUB 100 

340 CV* - : REM SET CHANNEL TO 2ER0 
350 GOSUB 160 
360 PRINT 0A* 
365 GOTO 340 
370 END 



10 REM DRIVER FOR 12 BIT A/D CONVERTER IN BASIC 

16 REM D-5 V INPUT 0-0000, 5-4095 

20 REM PORT AD0RESS IS SEI00 ON SAMPLE PROGRAM, BUT 

30 REM MAT BE CHANGE0 TO ANY CONVENIENT 1/0 ADDRESS 

40 REM CV* IS Variable FOR CHANNEL NUMBER OF a/0 

100 REM TEST PROGRAM *• BY J. A. MCOANIEL •• 

110 GOSUB 210: REM INITIALIZE PORT 

120 ir#»UT " THE CHANNEL NUMBER IS ", CV* 

125 CV* - CV* • 16: REM CALCULATE CHANNEL HUfr©ER 

1 30 GOSUB 320: REM PERFORM CONVERSION 

140 PRINT DA* 

150 GOTO 130 

160 END 

170 REM 



The ♦/- 10 volt amplifiers can be zeroed by Inputting 
0.0000 and setting the output to using Ron's program. 
The actual output will be 2.500 volts at the amplifier. 



BYTE MS BITS; 



AT SE11C: BYTE PIA ADD(0), PIA AD, PIA AC; 

AT SE11E: BYTE PlA-BDD(O), PM-BEL PIA-BC: 

AT SE1I0: BYTE PIADOL(O), PIAD*TAL, PWONL; 

AT SE112: BYTE PlAD0H<0), PIADATAH, PIACONH; 

CONSTANT TRUE— 1,FALSE«0, MEM«$0000; 
INCLUDE 0.1OSUBS; 
INCLUDE 0.HEX10.LIB; 
INCLUDE REALCON; 
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PROCEDURE ESCAPE; BYTE FLAG; 
IF GETKEY - $1B /♦ ESCAPE KEY ON KEYBOARD V 

THEN FLAG ' 1; 

ELSE FLAG = 0; 
EMDPROC FLAG; 

PROCEDURE SETUP AD; /* PROCEDURE TO SET UP A/D PIA V 
P1A AC - $00; f PREPARE TO ADDRESS V 
PIA-BC - $00; r DATA DIRECTION REGISTERS V 
PI*-*DD - $00; r SET SIDE A AS IhPUT V 
PI*"SOD « $F0; /• SET 1/2 B AS INPUT J/2 AS OUTPUT V 
PIA-*C ■ $04; 
P1A-BC - $5C; 

E*CPROC; 

PROCEDURE AD CONVERT(BYTE CHAN NUh 

— BYTE COW B, TEl^rTEST B: 
INTEGER INT B, INT A, O0WW: 
CHAN NU - SHIFT<CHAN~NU,4>T ?• LEFT SHIFT FOUR 
PLACES V "~ 

PIA BO ■ CHAN NU; /* SET UP CHANNEL NUMBER OF PIA V 
DATA A - PIA *D; /* CLEAR CONVERSION COMPLETE FLAG •/ 
PIA K • 1347/* TURN ON AD CONVERT PULSE V 
PIA^BC « $5C; r TURN OFF ACTCONVERT PULSE V 

REPEAT 

IF ESCAPE <> THEN JUI4 5 $0000; 

TEST B - PIA AC; 
UNTIL JTESTB >» $60; 

DATA A • PIA AD 

OATA-B * PIA-BO AND $0F; /* REMOVE CHANNEL NU AND GET 
4 MSBS -V ~ 

COM B « NOTCDATA B) AND $0B; /^COMPLEMENT 
UMCCWLfMENTED BIT (MSB)T 

TEMP ■ DATA B AND $0?;/* GET COMPLEMENTED 5 BITS OF 
MSB'S V - 

MS BITS * COM B OR TEW 1 ; /* PUT 4 MSB'S TOGETHER V 

INTB - SHIfTttNTEGERtMS BITS),B); 

1NTA " INTEGER (DATA A>7~ 

AD-OUT ■ INT B OR INT^A; 
EWPKOC; — — 

PROCEDURE PRNUWREAL NUM);BYTE BUF(20); 

PRINT<ASCII(NIJM,.BUF)>; 
ENDPROC; 

PROCEDURE STALL (REAL INDEX2); REAL COUNT; 
REPEAT 

COUNT • COUNT ♦ 1; 
IF ESCAPE THEN JU*> $0000; 
UNTIL COUNT * INDEX2; 
ENDPROC; 

PROCEDURE TEST CONVERTtBYTE CHAN NU)r BYTE INDEX; 
REAL AL 1NDCT2, AVG, A AVG; — 
SETUP AD; - 

CRLF;- 

PRINTCI^UT THE CHANNEL NUwBER "); CRLF; 
CHAN NU - GET HEX BYTE; 

CRLFT ~ ~ 

PU HEX BYTE(CHAN NU); 
CRLf ; - — 

REPEAT 

INOEX - 0; 
A AVG *0.0; 
RCPEAT 

AD CONVERTCCHAN NU); 
PUT HEX AD0RES3t*D OUT); 

space(9t: — 

PUT HEX ADDRESSiNOTtAD OUT) AND $OFFF); 

Al *~FLOAT(AO OUT); — 

A1 - Al / 4090*5 

SPACEC5): 

PRNUMtAti; 

CRLF: 

A AVG = A AVG ♦ Al; 

IHOCX = ITOEX ■»■ $01; 
UNTIL INOEX * SI5; 
AVG - A AVG/21; 
SPACECW; PRNUM(AVG); 
CRLF; 

INDEX2 « 3000; 
STALLCINDEX2); 
CRLF; 
FOREVER; 

CAUTION; 

Both the +/- 10 volt amplifier and particularly the to 
20 millivolt amplifier can under overload conditions place 
V- TO to 12 volts on the multiplexer Input. Under These 
conditions no damage will result; however, the switches 
no longer proparly work and channels which are 
supposedly off will feed Into the one which Is on, causing 



erroneous results. 

CONSTRUCTION HINTS; 

A few construction hints might be helpful at this point; 
all the resistors should be 1$ metal film, and the 
feedback components In the 0-20 millivolt and the «•/- 10 
volt amplifiers should be matched to 0.1$ or better. The 
0.1 ufd Integrating capacitor should be polystyrene or 
polyester definitely not ceramic. The bypass capacitors 
should be ceramic and miniature tantalum for the 0.1 and 
10 ufd., respectively. 

I found It very helpful to separate the analog grounds 
(as much as possible) from the SP-1 boards These 
grounds are symbolized by the triangles on the diagrams 
and were all tied to a piece of 1/8 Inch shield braid run 
along the top of the board by the use of # 22 or #20 wire 
with most of them having their own wire- The shield 
braid was covered by plastic Insulation and run to the 
Interconnection board where the three main filter 
capacitors of my Glmlx tie together. The braid was 
attached by a sotoer lug placed under a capacitor ground 
screw. The digital grounds were all run together on the 
SPt board. 

It Is also helpful to keep the clock divider somewhat 
removed from the analog circuitry particularly the 
trimmer potentiometers In order to avoid Injecting 
digital noise Into the reference lines. It might also be 
helpful to shield the analog reference, zeroing, and 
analog Input lines to the A/0 as I have experienced 
digital feed Into some of them. The coupled voltages are 
small but enough to affect 12 bit accuracy and are 
practically Impossible to pinpoint by a scope. Under 
unfavorable conditions merely connecting the ground lead 
to the scope can make the error worse By a factor of 10 
from Injected hum. If you use a scope to detect millivolt 
fluctuations you will want to float the scope from the AC 
power line and run a ground to the end of the shield 
braid that connects to the filter capacitors In the 
computer* (The scope probe doesn't make a good enough 
ground for my scope and a wire should be directly 
connected.) 

Finally, to help conserve space on the board, the channel 
Input resistors can be placed so that the leads are only 
0.1 Inch apart If every other one Is first Inserted 0»2 
Inches apart and then the remainder Inserted so that 
they rest on top of the first row. I would also recommend 
that you place the A/0 converter on the right hand side 
of the SP-1 board since there Is a larger square area on 
the right as opposed to the long thin more or less 
rectangular area on the left* This would mean that the 
A/0 PIA should be IC 11 on the SP-1 board. 
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FIGURE I DIGITAL TO ANALOG CONVERTER 
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21 December l$f« 



Deer Don. 

Sob a tlae ago - I'vi forgotten In which Issue of 68 Micro - ont 
of your readers subalttsd an anbancaatnt to Lao Taylor's CO?? 
utility to output Carrlage-fttturns to his printer. Bt also 
euggaatad It would be nice If It could handle aiaelng pile- 
Buabert when the 'P r option was In gee ao that If* aay, the rang* 
2-15 vara being copied and Pile I? were aiaelng f coi the 
eeguance, tba COM procedure would not be aborted. Mill, I 
accepted tbe challenge and a* ancloalng the naceaaary patch to 
laplemtnt bis auggeetlom. Ybenke Cor the Idea] 

1. Locate tbe label SRPPIL In the aaaoably-llotlng. 51k lines 
above this, cbsngs 1*1 BADBO to BJU BOPILE. 

2. Append the following code to BK9TIL, lamedlstsly after the 
lnat ruction BRA AALOOP t 

MOPILE IBC LORAXG+1 Adjust Pile • 

Wt Mr I LI 

rnc LORANQ 

BOFILl LDX •HOPIL Kissing Pile atSssge 



JSft PSTHMC 

CURB 

LDX •LORAPG Display Pile 1 

Jfift OQTDPC 

LDX •SKPt>m22 Continue? 

JSH ASftHSQ 

PBO BALOOP Yes 

CV» PHTDPV Bo 

JMP EXIT2 
3. Insert the following In the aeessgee section, inedietely 
above WAITBB * 

BOPIL PCC 'Non-esl stent Pile ■ • 

PCB 4 

This lstter has set me to thinking that If It were not for saving 
our friend's suggestion* this Ides Bight not bave occurred to m* 
Perbaps tbare era other readers out there wltb thoughts of 
'wouldn't it be nice If s certain utility bad such snd such sn 
option* or even If there vet v a utility to do whatever.* but 
perhsps tbey don't bave tbe expertise to carry out their Ideas, 
I hereby Invite you folks out there to contact Be wltb your 
ldesa, snd aaybe between ua we can come up wltb something we cen 
sll use to our edvsntsge. 

Over the nest few aonths I hope to euDetit upgraded veralona of 
other utilities I've bssn working on. Hive s Berry Xmmb end s 
VOLY hsppy Pew Yesr. 



IJMllYNt AVJUVt. 

assowoso. 
aam&McotUMii* 

CA*AO* v» u 



Blncerely, 
l^/Jonv* 
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INTRODUCTION TO INT6CRATCD CIRCUIT LAYOUT 
By Brian Spioks 
Austin, Texas, December J, 191* — A definitive college-level textbook on 
integrated circuit layout it finally available. Introduction to integr ated 
Circuit Layout, by $ran Spink* offers the basic theory and method of 
integrated ctrcuit design to engineering and drafting student) as tveil as other 
technology s, as a preparation lof integrated circuit tlC) mask design. 

Introduction to Integrated Orcuit Layout u intended to provide the 
student with a working vocabulary of the trade, the basic theory nacessary 
for the layout ol metet-oxide-semiconductor integrated circuits (MOS JCsl, 
and a method (or translating a log* diagram to a schematic design for use in 
designing an integrated circuit. The reader a also shown techniques for the 
design of a composite drawing of masks for use ia the fabrication of ICs, and 
tne requirements for nonorcuit elements of ECs, such as logos, alignment 
keys ar*d etch mark* 



The materia] lor Introduction to Integrated Circuit Layout was 
developed from a «e<ond*yeer college-level dr eft irej course, in 1979. Srian 
Spinki began compiling notes (or a technical course designed to alleviate the 
necessity (or in*house training in integrated circuit design. The lack ol 
available teaching materials ied to the eventual publication of Introduction to 
Integrated Circuit Layout * The book is addressed to students possessing »ome 
lamidarity with pr mted-clrcun layout and design electronic schematic 
drafting, and basic electronic*. 

Introdutttoi to Integrated Cirgyti Levput contains a very uaetut 
glossary ol the trade vocabulary, as well •* easy*to-read dra*ingv. dugremy 
e«arnples> arid student exercises wSere appropriate. The material t% compiled 
solely from source* provided by present and lor^er members ol the 
Microprocessor Product* Oivnivi Design Staff, Motorola, Inc.. Austin,, Teita*. 

Brian Sptnks received his BA in Mathematics in J9f 2 from the University 
of Texas at Austin, where he atso worked at the Defense Research 
Laboratory. In 1977, he was awarded a BSEt from the Univer nty ol Houston, 
Vlr. Spink* has worked at Lockheed Electron*: > on a NASA Program, at Tex** 
Instruments, and ai Anerican Micro Systems* lnc„ where he worked lor two 
years before pining the Applications Engineering Staff at Motorola tn i97l. 

Introduction to Iftiaa' a ted Circuit Layout, by Brian Spink* 198), is $19.95 
m soft cover, $24*93 in hard cover. For farther information regarding 
Introduction to Intee/aied Cirg,ij.i Layout, please contact Beverly Sill, 
Cotfefce Publicity, Prentice. Hall, tnc-, fcnglewood Cliffs. New Jersey, 076)2, 
or call collect, (20 J) 392-23*8, 



H3R JrMDlAT? REUMZ ... A oev data book cover inq the broad sang* of 
Motorola 16/32 Bit Kicrocosgajtet Board -Level product* ia now available. 

Oapxaxn eovar VnBtadole* , VfRQtasadulea , 1/Qnodoles, operating e/ataro, 
davalopaant eyvtame, ayatan too* tecfinical eumsaiies, and customer 
aia^wrt. Technical aonclf icatlane, photoe, chart** and 9r*pna ate used to 
cteacTiba a variety of board, ayaten, and aofeuare product*. The board- 
level product* are baaed on tha H68000 Hlctopni aan r family/ and include 
a orotaard nlcrocatgaiter utlliiing the »C68020~rtcrtorole < e nev, full 
52 -bit r*v\ 

A CO?V may be ocdeied by raqunatinq DLL2? fror Motorola Literature 
Diatribotion Center, 616 w. 24th Street, Tvnpn, Arizona 05282, 

{602) 994-6561. Price la $2. OS. 



Mote to tditors: Pleeae do not publiih without including otic* 

inioxaation* 



® 



Smiconduc tor Pnxtocto tnc 
^oaoijosu +*H»r* Aiuro** avna 



Innovaiive systems 
through silicon. 



tan NorthfMwWM 
TfeX/TEUailOlllHil 



Contact Mt Sti^r* 

MtiSrlinS Corrwntn <*ttor* 
4G8»94j 12*7 



News 
Release 



FOR ML9JSt OK OR AfTTg 
14 NOVDOltR 19&4 



PIO0S ZHTIHS U8 USER XJjtXtT 

mm Hc&golo-B<kSgp sio^ooo unit su?Ea>ncno coKPirmt 

SAJ* JOSt. CA. , HOW, U, 19B4 — PUiui CompuCera , Inc. today announced 
tta new entry lato cha l-fl uttr aackecpiace with a hifh perfocmanca 
«CM0I0-6a**d eup.rmtcro coaputar vpecLflcalLy deitgnad to run Cha UHtX* 
oparacin| ivitti 

Oaatinacad the rlixui P/15, the n*« 32-bit auparaicro off«t« full 
cosspatibllity with tha rait of cha PUxui tmiK-baaad lint o( product ■ »d 
14 targeted at cha 4 rowLn t vau/OCM aaekaE, aa uell aa toward larga tnd-min. 

km with tha othar Mini coapucara, tha */lS faatuta* a aultiprocaaaor 
architaccura and utiliiaa two nCoAOLQ auroarocaaaAra, a *4Mty capacity 
of vp to I Hbytem and eight full duplex aerial porta for taralnale or acher 
,>atLphairala. 

"Tha Pr*l* la aiatad directly at cha anal I uaer uho naada not only 8 
uiir capacity, but high partornance aa veil," eetd Gduard J. Hayaa, Plaxua' 
VP of 'UrkatUg. 
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'Th*ra it a #ery Urge i*gnent af l*ie OCM/VAl utUt Chat hai indicated 
A n**d tit th* J'13."' laid Kayaft. "Tn ^Oal CiMi, ttat*. V*l*t h*v» pacsi 

mIUai 4 iyH#* * Hawing fro* on* to hui uiiri and t^ay h*v« b**n running 

cut of et**»..,out of power %m their application oeedt grew. Tha 7715, 
wlcn its ■upvrler oulc iprotaeaor architecture utllULng two of tha »ore 
powerful fCblOlO *lcroproc***or*, la offered • * * eoiution to tMl VAjt 

noyaa pointed out ch*u the F7 1 J Le an entirely new produet, daaUn** 
by flan* eaglnoara etpacimlly for (Mi oarkat , 

"A* the Flexu* product lima continue* to ajtaaod* aav product! Ilka 
th* PL} will app«ar. not ai * ripi*f*s«nt (or entitling lytcatu, but ** 
viable new alternative! for "AJ't and *nd-ut*ri who want UHllt* and want 
powerful, avll l-tn^U| eupamtcroa/ 4 Hayea tttd 

Thai Mil U packaged to fit In a vary Halted eptc* eftan found in t*» 
Cypical bulinete jfrica, With It a Ktrecllv* low profile detlgn, a hal|M 
of under J 5 Lnchat and a -eight at undar 71 pound*, tc eeelly f let along 
• id« other office «oulpe)*ot and furniture. Tha »/!5 It totally »el f *cont elnc 
allowi** for op Go 34 tfbytea of die* ttorag* in I Winch* tier -type dltki, 
plut a tingle 3.23 inch doubt* tided, double d*ntlty floppy dltk and uiet 
ttandard u*vai: power. 

13 utata thou Id e*poct ■ igrtif IctAtly fattar ratponic ilai tn tha 
■wit inter fnviroflum than (bay ara accuitoaad to teeing tn ether iL*i:*r|y 
pttcad aachlnaa, tteye* pointed out. Mo Indicated Chat theaa benefit t are a 
factor of both the bmLi Iproceteor design and th* separate Ji-bit proceaior* 
Cor I/O function*, tuch » data cwimKinoii, 41th tubtyateai control and 
functions such at ;ob processing end Op*r*f log *ytt*B) tvecut to" 

The 1/0 procaaaor la a 32-hlc device controlling an SCSI ewbeyet** 
Interface offering full *rya«--«arr action facilities n wall at foil SCSI 
Interface fuoctlooi aarvLni th* hard and floppy dttka. to addle loo. tba 
1/0 procaaaor handlee all charterer L/C to *od froa th* «t§ht aortal 
port* raaovlng ihla ovarhtod fro*) tha Job procaaaor. 

T** riaxu* f>/!3 OU job procataor. oalni tha 13-blt HCofOiO «lch a 
imia clock, oparti *f wlih no *iH iiitti, thrQufh * aharod htfb-*ptod 
«ap t with I ffj T I*a ot addraaa aptc*. It aupportt th* JIU. propoaad 
tetitdardi Cor fLoatlrti point arlthaatlc. 

UttlUtol currant Z56»-blt MX davLcai, tha »/W mcaary 1* available 
with vp to 1 alllloo 16-blt wordi 

Tha r/15 la avallab la within 170 dayt A.ft.O, and It prtcad at St0,9SO 
US, tgimUr om, with . S wbyt* of HAft and 12 Tfbyiat of winchatcit dlak 
ataraft, plot * \ Kbyte floppy dlak drly*. 

PUMM CoAputar*. lie ■aBufacturtt a fully coaipatlbla lift* of hl«h 
parfarvanc* 3J-blt *up*r-lcrocotKpuiart da*i f n«d (or th* V**f&D% and lar ( « 
*nd-u*ar. utilizing th* UNIX* eparat ln| iy*t*a and t unique owl t iprocei lor 
architecture xhkh ptovldee ueert with eaceptiontl pou«r and parfartwtca. 
FLaawt market t let producer through eal*i offlcaa lo tTwj U.S. and via Itt 
dUtrltaton and awbildlarlaa throu|ltHit th* world 

For addition*! tnloroet ion, plaaa* contact Jaff Stlvaa, Pl«Aua' 
Harketln« Coenunlcat ion* Hanatar, 3831 North First Street, San Joee, CA. 

- 10 - 

l^«t 

•OKU le a tr*dam«rk of bell L*bor«torlae. 
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A? TNT 00* tlLLl APJS 

SWO CASSANDtA SKITn 

P BOi o*9 

K1XS0JI, TN 373*5 

UNITED STATES Of AMERICA 






Mi«0ru»h 1b proud to amourc* tft* acguUUion of cb* tforMt-wid* riohti to tn* 
FLEX a«d 0S*9 w*r»toot of SCRED1TOR III froa> Altord and Aisodetat. 

tfindruah vUl to*>tf«v* to oarket thfftf *tr$ioni at S175.CJ0 *nd provide upgrao* 
dUki to tt^it^nQ gttrt for $25.00 and upgradf dlbti and aanwoli to aa1bt>na 
uftart for 1A3.W. 



To obtain an uPflrodt, 
fchaouomO/VIIA/ACCf SS) . 



Tba tufrpm vara toft 



tha ORUIMAj dUe avli b* r*turn«d vilh th* parat^T 



r of KMIvMOt tU H l.iDb. 



r>leatt note that th* "Tutorial C*»tttt»** raf*rftd to 1« too* oi Alford ens 
Attoctate* advert laaaant a will not be supplied by kffndruih. 



Dalle' and Hctnt* mquir^** *r* Invited. 




blbCCTOt 

VlltbiUSM aJlCdO STSTEHS LIMITED 

To* 

lyyWINDRUSH 



fUS 



Mcfn Syturm Lid 



'bo MICRO jOumkal 
attm: 00* vSLLlAMS 
3900 CASSAMOfta SMtTn 
r> 90% 049 
MUSON, TN 37543 
UMITIO STATES Ct AMLRKA 



tawtfiai 



boar bcm # 



1S/1?/B4 



f»Mi" ;n up^m^e «■{>. :{ p 



tf«ll •*•»••; hetd back doing thlt ei long as w» could but o^th th* i1**dy 1ncr*«tr 
In initrnat^onal ooatel cKerort for the b+it tod yeart ue can refrein no longer. 

Effective January 1 # 19§5 our upgrade ch*re*» vill be *i folLout: 

1, upgrade din only fer any b-^ndruih proo^ct S23.O0 

2, i»greo* din and aanuat for *ny utndruth product other than 

■L79 or SCREOIfOR 111. 133.00 

3, Ubgraoe dlik Ttd atnuai for Pt/9 or SCRE«1T0« ill »O.P0 
th* abov* pncti mdud* air rayit ocitagr. 

Currant vtrtien rtaapart are; 

MACE *.......■ 2.61 

»MtE 2.31 

ISM05 2.30 

D-fJU* 9.6.P0 

McCOSH 'C* ?3.2re 

PL/9 4.23 

suirmot ui p i.zoo 
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TO rikt *a*int«flt of thi* Strvtet t^t u»«p auSt : 

1. Rfturn the QUI 61 HAL rttitcr 0>l»t (not « copy). 

2. Enclose * cUfflot, Noncr OrtJ*r or criQ\\ e*r<j tutPOM »at ion* 

Tn* <n*k should bt itnt foUy intwred for tut full grict of the oroOuct m otr 
Ovr- •dvtrtumtnt. n« *Ul not be htkd rtioomiolv for disk* th»t fail tn r«*eh 
ot. Th« euitOMi a*tl*rttto« (Qrttn stlcter) should f*«a "Good 01 UK OMflln". 

Any application for *n uogridv thit 1« r»ot acco-vtr^cd or th# original utttr 
disk will 6* r*r g rntd without tctior. 

Ut would apprtciatt It if you would give this latter tht widtit poitiblt 
dlltfflf nation. 



/&<£*'£■/>. 



/ / 



B1U CKtlhSO* 
OlRECtO* 



JAICI&NICS 



U December 1964 



Mr Don William, 
68 Micro Journal # 
5900 Cassandra sn>ith, 
Hixaon, TN 3130 

Dear Don, 

Re the program PC.CMD and the aoendoenti recently subnitted by 
the author, Don Xorte, he omitted one very Important Insertion of 
a Line-Feed to prevent overprinting of lines. This requires the 
addition of 

LDA ISA 

JSR POUT 
immediately after the outputting of HULINE in the section of code 
labelled PPG2. 

I would suggest a further enhancement, which would allow the use 

of auitiple spsces In the optional title. NXTCB unfortunately 

compresses multiple spaces to a single space. The listing should 
be chenged as follows: 



Add to equstea BUFPKT BQU SCC14 
Change the code at P121 to 

LDB 179 Max length 

LDY BUPPNT Point to Line-Buffer 
PI 21 LDA 0,r* Get char 

cmfa ♦' , Bnd-of-Title? 

Yes 
No. Store char 



BCO PI 2 2 
STA 0,X* 
DECB 
BNE PI 21 
PI 22 STY BUFPNT 



Koep loading 

Update Buffer-Pointer 



PI 3 LDA 14 etc 

It might alao be worth mentioning that for thoae whose Printer 
requires a aultlple-code sequence to switch from NORMAL to NARROW 
printing, a quick fix is to aet both NORMAL and NARROW to 00 at 
the beginning of the program. Then under the label DEADER tat 
the end of the program) replace the word NORMAL with the 
corresponding code sequence, e.g. SIB, S8r $1, or whatever, and 
aimilarly with NARROW under the label HCADRl. 

in closing, I would lifce to reach out to owners of the GIMIX 
80x24 Video-Board with a view to exchanging programs. I have 
lota of good stuff specially written to take advantage of this 
board's graphics and Bound features. 

Sincerely, 



mints* avenv i 

ABBOTSPe>KD 
IPtmSXCOLlMllA 

lan*0a %-:Sj*; 



b.i aU~ 

%j Jones 
President 



The BASIC programs DATACQ, DATA8, and DATA16 work 
witt> an AD- 16 JPC analog to digital conversion board. 
USER subroutines are called by tfie BASIC programs to 
Insure that as soon as the conversion has been 
completed ttie next step In the data taking process can 
be Initiated. The machine language routines disable the 
IRQ and allow a complete handshake between 1tie ADC0817 
A/D chip and the 6621 PIA by checking for the status of 
the eighth bit of the 682 1's status register. The manner 
of handshaking provided In the machine language 
program can be used to form the nucleus of a more 
complex program, 

Maximum sampling rate for one channel Is 9000 
samples per second for a \ '4egaHertz clock 6800 based 
system where the 7474 chip has been removed from the 
AD- 16 board and pins 3 and 5 of the 7474 Socket are 



tred together In order to clock the AOC0817 3t \ 
MegaHert2. A 1000 Hert2 5.0 volt ptt.iK ftj tf&.i'* sine 
wave with a DC offset of +2.5 volts *as found to be 
reproducible at 9000 samples per second. 

It Is worth noting that In all the USER machine 
language routines, where more than one Chanel is 
selected, there Is a delay of about 24 clock cycles. 
This serves to Insure \\\*\ fh« correct channel Is 
accessed by keeping the ALE and Start of Conversion 
pins of the AOC0817 high for the duration of the delay. 
BASIC uas been used to display the data and englnee-lng 
units and other formats In BASIC are posslblo. T;w 
programs provided are essentially test programs to teM 
the user ♦hat his A/D board Is functioning or not. 
0ATA16 samples 16 channels In rtunerlc*l order one 
channel after another for d total of 16 samples per 
channel. DATA8 allows the user to select eight- channels 
In any sampling order. Each channel Is sampled one 
channel <*«fter another for a total of thirty-two sampUi-; 
per channel. DATACQ allows the user to select My >,».> 
of sixteen channels with 256 samples being taken for 
the channel chosen. The gain for all channels Is one. The 
AD- 16 fe on port 4. 

2 Jeffrey M. Craig Apt. 912 - 3001 S. King Dr. Chicago, 
IL 60616 4/6/62 



1* REX THE UM€ Of IH1S PRGSRAH IS DATACQ 

2* POKE HEtr?6 , KI 

3 J PWE NEir27H,| 

41 LET S<f 

5# EJEC»'6€T,USERJ.^IN" 

ct PRINT '&0 iOU ttNT HARDCOPi - T F0A YES III W FOR MO. 

'# IHW PI 

fil IF PIO'Y' kMIt WW TUE« BOTO »f 

U PRINT 'ENTER THE CHAMlEl tOU lANT SWLE&* 

)H INPUT C 

ill IF C<1 THEN GOTO 9$ 

\li IF Olb :«€N 60TQ 91 

[]* IF HI THEN i'li 

Jip IF C-2 THEN Y-17 

IU IF C*3 THEM t>\B 

\oi IF CM THEN Y=|^ 

IT* IF C-5 THEN i-2i 

iW :F C=* \hm (*21 

iH IF C=* THEK <=22 

2M IF C=B THfN f=23 

III IF Z*1 THEN U2* 

::i IF D=ll T1BEM i»25 

23# IF CHI TH£N ^=2* 

:^a IF C-12 TrtEX 1-21 

25» IF CI 3 THEN Y»2B 

2al IF C-U TH6JI ■*:» 

2?» IF C=IS THEN M4 

71$ IF C=la THEN Y=Jl 

2H PQ^E H€t>'$^^'),r 

m P»E HfM 9 N a ),HEl(*^ a l 

l\4 PG« HEtl a « , M€Xl a #in 

Mi LET A*ti$fl(U 

iZi IF Pl-T THEN OPEN '^P^INT^ AS 

341 IF ?!*'>* THEN PRINT 11/ 

3SI FOR M 10 256 

iol LET YaPEE*<HEtl # 7WI*^f» 

371 LET YI>STRim 

3W LET TilENiYl) 

391 if Pis ,, f« then 6oro 421 

m PRIHT 5PCt5-Tli>; 

4^ 6oro ui 

m PRINT M,SPC<5*1l;Vr 

43» LET SrS»I 

441 IF W TH?N PRINT #1 

45f IF S>8 THEN S=l 

4#| NCtT I 

U9 IF PI=T THEN CLOSE 

48f END 
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II tffl THE AW* Of THIS PROfiOA* IS BATA8 

:i we heu -?*•), i 

31 POKE iCll*i7'J,l 
41 LET *-9 
U LET S«l 

M ElEC,*G€T,tf$ER2.lir 

»| PRINT *tO rOU NA*T HMOCOPV - *T' F0» V£S III 'fl' FOR NO. 

M INPUT PI 

"I If PftO'Y* m PIO'N' THEN GOTO 71 

III PRINT •ENTER TIN] EISMT CHANNELS tfOU NANT SAILED - ' 

ill FOR i-i ro 8 

1:1 INPUT I 

131 IF M THEN 5010 1*1 

141 IF lib THEN 6010 ill 

iS# IF M THEN f-16 

tal IF 1=2 TCN 1-17 

\:§ IF :»3 THEN f«l8 

181 IF Z*4 T>EM f«j9 

J 'I IF 2*5 TH€M Y-21 

:if iF Z>a THEN t-:i 

;:i IF :-7 THEN r-22 

::i if as then u:z 
::• if :=9 then t-24 

2*1 IF Z*ll THEN f-25 

IU IF :-Jl TtCN 1*26 

lal IF :«12 THII Y<27 

1* JF :*IJ Tf€N 7»28 

."61 JF M4 THEN rf«29 

:n if r*i5 then mi 

:« IF :»lo THEN Mil 
311 POKE HEllW7*M,r. 

::$ neu i 

::* pole NCir:r»,HEti # ir» 

J4I POKE iNEK^M.Nff (•!#•] 

»t l£T A>US8<I> 

!al IF PS«V* T H£N OPEN 'I. PRINT' AS 

30 IF PI«M* THEN FftlNT II,* 

391 FOR Ul TC 256 STEP 8 

391 60SU9 721 

4M NEU I 

4St PRINT 

4:1 FOR 1-2 TO 254 STEP 8 

431 SOSUB 721 

44* NErT I 

IS* PRINT 

ioi FOR Ul TO 234 STEP 8 

4T# 60SUI ?:» 

4fl# NflT I 

49* PAINT 

SM FOR i.4 TO 2)6 STEP 8 

SU 50SOI 771 

521 NEU I 

S3! PRlNf 

341 FOR US TO 234 STEF B 

SSI 505UI 721 

5o#NEIT I 

571 PRINT 

581 FOR I«4 TO 236 STEP 8 

SOI 60SU1 771 

jM KIT X 

all PRINT 

621 FOR 1*7 10 236 STEP 8 

a3l 60SJI 721 

641 NEIT I 

aSI PRINT 

Ml FOR 1*8 TO 256 STEP 8 

4'| 60SUI 721 

«8I NEIT I 

a«?l PRINT 

'H IF Ft-V THEN CLOSE I 

'II ENO 

n 2l LET f«F««<l€li # 6fFF*MI 

Til LET »ft-8Nlt<n 

'i| LEI T-LEJNH) 

^ If Pl-T THFJ 6OT0 781 

al PRINT SPC<5'f»|T| 
77| GOTO 851 
'SI PRINT #|,SPC<5-T)|»t 

H S-S»t 
3M LET N-N«] 



-.# JF <«8 THEN P«INT M 
:.r iF **S2 THIN pajNT II 
331 IF S*8 TUEN S=# 
**t IF N-52 THEN N-l 
3*1 SEJiJRN 

II REN THE NAME OF THIS PRQ6RW IS WTAla 
:* POLE Mfjrrt'l.t 

II POKE MEn-27'M 
il LET S-l 

51 LET IN| 

*l ElEC/aET.USERl.IlN* 

'I POKE rtIl*:4*>.HEU'ar> 

91 POKE KEKTO'I.IJEICII'I 

-i LET A>USR(#I 

;M PRUT *eO TQIj NANT HARDCOPY^ - 'V FOR rES III N* FOR NO, 

III INPUT PI 

:n if pm>'i* and myn* then soto hi 

i;i IF pM-f THEN OPEN •!. PRINT' AS 

Ul IF Fl-*V THEN PRINT II.* ■ 

15* 'OR it*} TO 256 STEP 14 

lei oOStll 811 

ri NEtT l 

IBI PfliNT 

191 FOR 1-2 TO 256 STEP 16 

2H SOSU8 811 

211 NEIT I 

221 PRINT 

231 FOR 1-3 TO 256 STEP 16 

241 GOSUB 811 

251 NEIT I 

261 PRINT 

271 FOR 1-4 TO 7S6 STEP 16 

2BI 608JB 811 

2H NEIT I 

3W PR TNT 

311 FOR 1-5 10 256 STEP 16 

321 6091* 811 

331 NEIT I 

341 PRINT 

35* FOR Ub TO 256 STEP 16 

3d 50SW 811 

37l NEIT I 

3B! PRINT 

301 FOR 1-7 TO 256 STEP 16 

4M 60SU8 811 

411 NEIT I 

421 PAIN? 

431 FOR 1-8 TO 756 STEP 16 

441 SQStlB 811 

451 NEtT I 

4a! PRINT 

471 FOR 1-9 TO 256 STEP 16 

481 80SUB 811 

W NEtT I 

!M PAINT 

5?l FOR I-tl TO 256 STEP 14 

521 SOSUi Bll 

531 NEIT X 

541 PRINT 

SSI FOR f-tl TO 256 STEP 16 

561 $8SM 811 

571 NEIT I 

581 PRINT 

591 FOR 1-12 TO 256 STEP 16 

all SOSU III 

all NEIT I 

621 PRINT 

631 FOR t'M TD 256 STEP 16 

*4I 60SU8 811 

651 NEIT I 

661 PRINT 

4fl FOR I-H TO 256 STEP 16 

tit eosui in 

a9l NEIT I 

'H PRINT 

711 FOR 1-13 10 256 STEP 16 

721 60SL8 811 

731 NEIT I 
741 PRINT 
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7*1 F# l-l* TO ?34 STEP It 
'61 60SUB 8l# 
**| *[T I 
*SI PR SIT 

:»• if >•■■*■ Mi acsi o 

SH £Mfi 

Oil LET vniU*U m VHF*UD 

B2t UT fl-STRlin 

s:i lei T-itNmi 

gH tf ?!■'»' TIC1S01Q 871 
?5I PAlU SPClVTntl 
io$ iOttJ °*l 

n *ri«t M,srm-ti»rj 

9$# LET S-S»1 

B«# LET N**M 
Wl IF 5-8 THCK mV M 
•:l If N-16 TKtN PRUT » 
».l IF S>* THEN S'f 
Vi it N-l* THEN **• 
»l| RETURH 



N-* ;SERI 
CFT r46 
TJP8 t*4<* 

CASES E8U IBM 
5****6 EOU 13*11 
A35JHE6 EOU I8lt: 

crs?6 eou tern 

0*>W EMI »5W 

ISA A III 
S r A 4 STATR6 

i:« a in 

iJA A Mrres 
L5i A It* 
ST A 4 STATUS 
104 A III 

STA A CWTftB 

l:a a iiff 

sta a adore 6 

IN A lt>4 

STA A CWT1 B 

L^A A 6ACNCH 
S*A A AC0^E6 
LOr H'lN 
P£?;n LOAI MX 
5ja i counts 
IDA a it;< 

LOOP! IDA A STATRG 

m A K tHHH 
CnP A KlMPHM 

ENE 1009? 
IDA A DATfttS 
STA A M 
INI 

cpi iriii 

t£Q EXIT 

J* H6IN 
Eltt RTS 

tit 



MM 1/5**2 
OPT PA€ 
0*€ t*H# 



04TH6 
STATUS 
A00RE6 
C0MR6 
Ml* 8 
SAINC? 
SA1NU 
BAIHC5 
SAtNU 
SAINC J 



EM 19111 

EBU 18111 
EBU 181)? 
COO l*H3 
EOU IVFF 
EBU *»FE 
EOU I5FF8 
EOU I5FFC 
EOU tSFFI 
fOU ItfFA 



SAINCZ EOU «FF9 
6AtNCl EMI I5FF8 

LDA A Ml 

STA A STATUS 

ITJA A HA 

STA A BATREB 

LIA A MA 

STA A STATRG 

L&A A Iff 

STA A C0MTR6 

LDA A IIFF 

STA A A0ME6 
&A A M3« 

STA A tOUTW 

LOt h:a#a 
CHANI LDA A 6AI4CI 

STA A ADORES 

JSfl MAAOSI 
CHAN? 10 ft A &AHC? 

STA A ADDNE6 

JSfl fcANDSX 
CHhKT LDA A 6AINC3 

S*4 A ADDRE6 

J SB HANDS! 
CHAN LDA A GAIVC4 

STA A ADDRE6 

:sa h;*ds* 

OAN5 LDA A 6A1NC5 

STA A ADDAE8 

;$l xanDSi 
CttNo LDA A GA INC 6 

STA A AOORES 

JSH «wdsk 

CrtA*7 19A A SA1C7 

STA A AO0ACS 

JSAHAfOSl 
mm LDA A SAIRCO 

STA A AD0RE6 

JSfl HAAJDSK 

CPI W\H 

8J€ Rf TURK 

RTS 

RET'JRH JAP CHPN1 
HANDS* LDA A l«C 

STA A CONTRt 

LDA A 113 
LOOP? DEC A 

CftP a ill 

?N€ LOOP2 

LDA A 1134 

STA A CDNTR6 
LOOP: IDA A STATRG 

AND A KtflHlM 

CUP A niMIOH 

PnE 10OP3 

LDA A DATRE6 

STA A 1,1 

INI 

RTS 

END 



MAM I«€i3 


OPT PAfl 


0*6 um 


mm EOU Mil 


STATRt EOU fill] 


ADORCe EOU tMI? 


CQHTR6 EOU IMJ3 


LDA A III 


STA A SUTtf 


IDA A III 


STA A DAlRfl 


IDA A It* 


STA A SfAlRm 


LDA A III 


STA A COITW 
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IDA 4 lift 
ST* m A3MK 
IM A MJ4 

sta a cmm 

LDI M:Mf 
150P1 (PI II71M 
9« Elir 
191 ? Hi 

:c i 

CNf 6 13? 

Ell T fiTS 

-«ft£5> CO* A HJC 

STA A CCtttdG 

15a A It3 

.jcp: D€C a 
l-p A III 

U* m 1134 

?T* A (CM1P6 
LMM LOA A fTATflfl 

MiO A IIIUMIM 

■:np a kumui* 
tie l«p4 

t:» iAfRE6 
STA A 1,1 

ATS 



H_FX S*tt«ne Utility 

The following SET1*C routine Is almost an exact copy of 
SSR's DOS setlme routines, except that ft has been 
modified to operate under FLEX (since FLEX does not 
provide a routine to set the H«ne for those of vol/ who 
Kave the r**58167 on-board clock), 

\t\ addition to updating the real time clock. SETIWE also 
modifies the FLEX date register appropriately, so that 
the DATE cownand need not be used se aratety to set the 
inonth, day and year* One nice feature added to SETIKC Is 
the ability to set the year, and because It Is a 
parameter on the command, If can be put lr> your startup 
file, fly utilizing the FLEX date register to store the 
year (as the DATE command does). There Is no need to 
have It hard-cooed In the SETIME command. The format of 
the command Is: 

SETIpC 

The program will prompt you to enfer the current dafe 
a ad /or time 

SETIME 

This will give you the current time anri date 

SETI^C 83 
Change the year In FLEX's date register to **83" 

SETIWE 83 

Set the year to "83" and display the date/time while 
you're at it 

The real time clock for my 6809 system Is at $F700 
(label CLOCK as defined In the FLEX equates). 
Change this value appropriate! . 

For a small fee of (12.00 tU-S), I will send you the 
source to the SET1KC and EXTEND commands, as well 
as the FLEX equates, on a 5" floppy disk. Pleas 
specify whether you want tt on 40 tracks or 80 
tracks* Price Tnekidos cost of disk. Make check or 
money order payable to: 

Scott Fraser 
547 Sharron Bay 
Winnipeg, Manitoba, Canada 
R?6 0H8 



« Setite - Th* S£T TImT/DATE Tranent allows the 
t user of %8's Real Tim Clock (RTC) to set 

• tlie tn*« date and re*r of the fcartore 

• device. 



* ft is called u: 
t 

t smrc 

t 

« amrt d 

t 

f SCTJmT YV 
t 




lift ti*e ar.d date) 


J disela- ti»e t date] 


i*et **ar 9iven bv 'YY' 

limits) 


* SETIKE YV D 
i 


(set vtar and disptar 
tite * date) 


* NITEJ *YY" should be between 00 and 99 



* TMs erosral does net use interrupts to update 

* tht tin trrf date stnns on the displar 

* once a second? instead uses a software loop 
» to determine a I cvcle/sec interval 

i 

* This is a sli9ht Mdification of DOS' SETIft cid 
to work under FLEX (Sept, 1982) 



C387 

Fax: 



# 

ZR0TIP1 

POATA 



£0U 
SOU 



RDTIHE 

IF30C 



•read tiie* rtn 

addr of POATA rtn (SSS HON) 



♦ h*58U>7 re»ister offsets 
t 





0002 


S£C 


equ 


, 


seconds 




0003 


fflN 


K* 


' 


iinutes 




0004 


HOI* 


w 


i 


hours 




0005 


Dft 


E0U 


5 


d*t of «eek 




0006 


M* 


E0U 


6 


dair of MnUi 




0007 


HON 


E0U 


7 


konth of rear 


C100 






ORG 


ICA 




C100 20 


a 




6tt 


START 






0*02 


VW 


•OU 


2 


version 2 


C102 




VWTE 


WC 


16 


holds the date 


CI 12 




YTJME 


RrtB 


16 


holds the tite 


C122 




XT£PF 


RH8 


3 






C125 


STttT 


E0U 


■ 




C125 J OK F700 




LOY 


•CLOCK 




C129 BD 


C027 




JS* 


NXTCH 


set a character 


C12C 25 


34 




BCS 


STARTl 


branch if nothing 


C12C 31 


44 




CIFA 


r§ 


just want date/tite^ 


C130 21 


22 


t 


BEO 


DIS1D 


branch if ** 






• assuf* a rear has LMr» specified 


CI32 BO 


C027 


♦ 


J» 


NXTCH 


stt V% disit ift year 


C135 25 


2* 




BC$ 


ST^Il 


branch if nothins 


CI 37 IF 


89 




TFR 


L% 


A -> P 


CI3? Bo 


CC19 




IDA 


PREVC 


sit 10 s digit 


C13C 17 


02C? 




ISSR 


ASCBIN 


convert to binary 


C13F 25 


4C 




8CS 


EMI 


leave if eiror 


CI 41 b7 


CCIO 




STA 


$Y0Rf2 


save ^ear 


CM4 60 


C027 




JSR 


NITCH 


aftithU9 else 7 


C147 *| 


20 




C*PA 


IS? 


this a space' 


C149 26 


4$ 




0* 


I1T 


no*>. then leave 


C148BO 


CD27 




JSR 


NITCH 


so pajt spaces 


C14€ 25 


43 




ac$ 


IIT 


if nothiog, l«ave 


CI50 81 


44 




CITA 


• t 


Miit date/tite' 


C152 26 


3F 




6K 


JIT 


r»op» t*er» leave 




C154 


DISTU 


E0U 


t 




C154 BO 


C024 




JSR 


PCfcf 




CI57 80 


C024 




JSR 


PCRl/ 




CI5A 17 


tlOF 




LBW 


DISfLY 


ves. prut date/ti»e c 


C150 BD 


Ctf24 




JSR 


PCRL/ 




C160 20 


31 




BRA 


XI7 


letiirn to FlfX 
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Cii2 


START1 


£0U 


t 




C16C8E 


C2EE 




LDI 


lOPUTSG 




CI65 B» 


CDIE 




JSR 


PSTOC 


print intro 




cm 


STAKT2 


£0U 


t 




Ct68 17 


0101 




LFSR 


Diafiy 


print tis*/date 




CI68 


START3 


•OU 


• 




C16BBI 


CB4E 




JSR 


STAT 


ch^ck *ei*oard status 


CUE 26 


OA 




BT€ 


START* 


orftcfc if Ctor taitift* 


C170 17 


0125 




LBSR 


fctt 




C173 Fl 


C122 




cm 


ITlf> 


check, for I second roll over 


CI76 27 


F3 




BEO 


STMT3 


if the tit* didn't chanse 


C178 20 


EE 




BRA 


START2 






C17A 


STAKT4 


EOU 


1 




C17A BO 


C009 




JS* 


INCH 


set taitins character 


C17D84 


5F 




ANDA 


•S5F 


fold lauer case to upper 


C17F81 


54 




OPA 


I'T 


Sft tfit? 


C1B1 27 


13 




BED 


S€T[I€ 




CIS3 81 


44 




CfTA 


I'D 


set date*> 


CI85 27 


54 




B£0 


SEDATE 




CI67 61 


52 




ClFA 


r* 


return to FiEP 


C189 26 


D7 




B€ 


STAftTl 




cm 20 


06 




BRA 


III 


return to FID 




zw 


EKR1 


EOU 


i 




CI8D6T 


C29B 




IDX 


•BAOYfl 


set bad vear BS9 


C190B0 


CDIE 




JSR 


PSTRNC 


print it 




CI93 


III 


•OU 


* 




C193 7E 


C003 




vH> 


uAflnt 


return to FLEX 



SET TIC Tlf€ 

The input is in the for* of: 

-m:*:SS # 

«here "HK"« m m m »nd '$$" are 2 disit characters 

*r#T has a •axmun range of to 23 

**T and '$$* have a t*xiMj» ranse of to 59 





C196 SET1IC 


EQU 


♦ 




C196B6 


CC02 


LOA 


EX 


set TTY end of line char 


Cm 34 


02 


PSHS 


A 


and save it 


C19B 7F 


CC02 


a* 


Ed. 


set EDI. char to null 


C1SE 8E 


C321 


LDX 


•TlrtST 




ciai as 


CDIE 


JSR 


PSTRHO 




CIA4 BD 


CDIB 


M 


\mt 


Set til* Stflfi9 


CU7 BD 


CD42 


JSR 


•EDCI 


set hours dmts 


cm :f 


10 


m 


X.I 




C1AC CI 


23 


WPB 


M23 




ClAE 22 


23 


BHI 


SETIfll 




C1B0 E7 


24 


STB 


HOUR.Y 




CIB2 BO 


CD42 


JSR 


C£T>0 


set unute dmts 


ClBI 25 


1C 


BCS 


srriHi 


if illesal value 


C1B7 IF 


10 


TR 


X.D 




C1B9 CI 


59 


ewe 


1*59 




ClBB 22 


16 


BHI 


scrim 




C1B0E7 


23 


STB 


HIN.Y 




CI8F BO 


C042 


JSR 


CETOX 


set second disits 


C1C2 25 


OF 


BCS 


srrim 


if illesal value 


CIC4 IF 


10 


TFR 


X.I 




C1C6C1 


59 


CMPB 


«3? 




C1C8 22 


09 


BUI 


sttihi 




C1CAE7 


22 


STB 


SECY 
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C1CC 35 


o: 




PtJLS 


A 


restore EOL char 


C1CS B7 


ceo: 




STA 


ECU 




C1D1 20 


8F 




RRA 


MARTI 






C103 


snim 


LOU 


1 




C103 8E 


C370 




LDX 


IlLWttG 




ClDi BO 


CDIE 




JSR 


PSTWC 




ClD9 20 


88 




BRA 


SH1ME 


start asain 



ClEE 30 
C1F2 8» 
C1F4 25 
C1F6F? 
C1F9 CI 
C1FB 23 
C1FD CB 
C1FF V 

C201 BO 
C204 25 



SET T)C DATE 

The input is in the fort of: 

>DAY,niN.00E.VYW]' 

•jfcere "DAY" is a 3 character str ins for 
the da* of the week <SUN - SAT) 

wnere 'HON" is a 3 Chirac ter stnns for 
the tonth of the year (JAN - OEC) 

where *D0* it a 2 disit value for the dav 
of the lonth tl - 3D 



C1DB SEDATE 

CI 06 BE C34F 

C10E BO COlE 

C1C1 BO CDIB 

C1E4 30 80 OOCB 

ClEB 80 44 

C1EA 25 39 

ClEC E7 25 



30 0017 
3ft 
2F 
#CC€ 

09 
02 
06 

27 

CM2 
IF 



C246 IF 10 

C208 CI 31 

C20A 22 19 

C20C E7 26 



EOU 


t 




L0X 


•DATST 




JSR 


FSTWG 




JSR 


irar 




LEAl 


KWTBL.PCR 


6SR 


3EDAT2 


convert dar of *eelc striA9 


BCS 


SE0AT1 


if input error 


STB 


DOU.Y 




LEAX 


N0HT8L.PCR 


B5R 


SE0AT2 


convert nonth stnns to oin 


DCS 


SEDAll 


if illesal vilue 


STB 


SYTR 


save in FLEX date re9 


0*8 


* 


convert to 9CD 


8LS 


^4 




ADM 


#6 




STB 


HON,* 


save it 


JSR 


GOO 


set day of nonth d»9it 


BCS 


SEDAT1 


if ille9il value 


IF* 


XtD 




Cff>9 


H31 




BM1 


3EDAT1 




STB 


DOH.Y 





• Convert tonth to pinarv and save 

• in FLEI s date resister. 



OCC34 


04 




PSHS 


6 


save hex tonth 


C210 54 






LSRB 




set ten's disit 


C2tl 54 






LSRB 






C212 54 






LSR8 






C2I3 54 






LSRB 






C214 86 


OA 




LDA 


110 


mjIipIy 6y 10 


C256 30 






rtt 






C217 35 


02 




PII.S 


A 


set bad hex iwnth 


C2I9 64 


OF 




(HH 


•100001111 teep 1'$ disit 


C21B 34 


02 




PSHS 


A 


save back 


C21DEB 


EO 




Aooe 


OrS* 


add on 10's disit 


C21FH 


CCOf 




STB 


SYW+1 


save in FLEX date res 


C222 14 


FF30 




LBRA 


START1 






C225 


SOMTl 


EOU 


t 




C22S BE 


C370 




LDI 


•titac 




C228 60 


COlE. 




JSR 


psnwc 




C22B 14 


FF34 




LBRA 


STARTl 






C22E 


SCOAI2 


EOU 


1 




Cm C6 


03 




US 


13 




C2XCE 


C122 




UW 


IITEMP 





55 





C233 


SE0AT3 


EQII 


t 




C233 BO 


C027 




JSR 


WITCH 


get a character 


C236 24 


0$ 




8CC 


SEDAT4 


if *1pba-nut*ric 


C238 81 


20 




CflPA 


tSP 




C23A 27 


F7 




BED 


SEDAT3 


tat 1tadir» blanks 


C23C fil 


05 




Cf^A 


tCfi 




C23E 27 


29 




m 


SEDAT7 






C240 


sawn 


EW 


1 




C240 84 


5F 




MCA 


«5T 


fold lower case to upper 


C242 81 


41 




•HPA 


• A 


don't use nuatnc chars 


C244 20 


n 




BLT 


SEDAT7 




C246 A7 


CO 




STA 


0»tH 




0248 5A 






DECS 






C49 26 


£B 




BfC 


9EDAT3 




C24BB0 


C»2? 




J3R 


HITCH 


tat terimatw character 


C24E FE 


C122 




LDU 


Uvr*o 


-> wt first tift chars 


C251 66 


C124 




LDA 


!T0ff2 




C254 C6 


01 




LOB 


It 


prestt center 




C256 


sedats 


EOV 


■ 




C256 11A3 84 




cmt 


0.! 




C25« 26 


07 




K 


SEDAT6 


tr< next string 


C25B Al 


02 




CMPA 


2.X 




C250 26 


03 




K 


SEDAT6 


trv next string 


r^f ic 


FE 




CLC 




indicate success 


C261 tf 






R1S 








C262 


SEWT6 


EOU 


* 




1262 SC 






1NCB 






C?63 » 


03 




L£flX 


3,X 


try ne*t string 


C265 60 


84 




TST 


0,X 


end cf table'* 


C267 26 


ED 




»€ 


SE0AT5 






C269 


seoflu 


EQU 


• 




C269 iA 


01 




SEC 




indicate failure 


C268 39 






RTS 










t 

• IFOATE DISPLAY ONCE A SECOW 




C26C 


dispiy 


EQII 


* 




C26C BO 


C387 




JSR 


IRDTIH 


update tiie/date stnw 


C26FB6 


00 




LDA 


•at 




C271 BO 


CDC* 




JSR 


CVTCH 




C274 6E 


C102 




LDX 


IYDATE 




C277 AD 


9F FBOC 




JSR 


[PflATAl 


print date string 


C27B 86 


20 




UM 


•SP 




C27D SO 


COOF 




JSR 


CWTOf 




C280 BO 


CDOF 




JSR 


CWTCM 




C283 8C 


CI (2 




LDX 


•YTI* 




cm AO 


9FF80C 




JSR 


fPCATAI 


print tite string 


C28A 86 


20 




LDA 


•SP 




C28C BO 


COOF 




JSR 


OilTtM 




C28F Bt 


COOF 




JSR 


CVTCH 




C292 80 


04 




esfl 


READ 




C294 F7 


C122 




STB 


XTEff 




C297 39 




1 

• READ 


RIS 










TIC SECOttS REGISTER 


C298E6 


22 


REM 


LDB 


SECY 




C29A39 






RTS 










• Data ATM 






C298 49 6*7 76 61 


BADYR 


FCC 


/Invalid VEAR specifitd'/ 


C282 04 






FCB 


EOT 





C2B3 


kktr. 


EQI 


t 


C2B3 53 55 4E 




fee 


/sin/ 


C2B6 40 4F 4€ 




FCC 


/nan/ 


C299 54 55 45 




FCC 


/Tt€/ 


C2BC 57 45 44 




FCC 


/MEB/ 


C29F 54 48 55 




FCC 


/TMU/ 


C2C2 46 52 49 




FCC 


/FR1/ 


C2C5 53 41 54 




FfC 


/SAT/ 


C7C8 00 




FrP 


end of table 


C2C9 


rWNTft. 


EOJ 


t 


C2C9 4A 41 4E 




FCC 


tmt 


GCC 46 45 42 




FCC 


/FB/ 


C2CF 40 41 52 




FCC 


tmt 


C2C2 41 50 52 




FCT 


/APR/ 


C205 40 41 59 




Fa 


/r*Y/ 


C2XB 4A55 4E 




FCC 


IJMI 


C2D8 4A55 4C 




FCC 


/.Hi/ 


C20E 41 55 47 




FCC 


/AUG/ 


C2E1 33 45 50 




FCC 


/SEP/ 


C2E4 4F 43 54 




FCC 


/OCT/ 


C2E7 4E 4F 56 




FCC 


/WW/ 


C2EA 44 45 43 




FCC 


/OEC/ 


C2W #0 




FCB 


end of table 


C2EE OOOA 


QPUrtG 


F» 


CRLF 


C2F0 53 65 74 20 




FCC 


"Set tiM (TK set date id) 


C30C 72 65 74 75 




FCC 


"return to FLfl IR)' 


C31E OOOA 




FOB 


ORLF 


C320 04 




FCB 


EOT 


C32I OCOA 


TIrST 


FOB 


CflLF 


C323 49 6E 70 75 




FCC 


'Input tiM in 24 heur ' 


C339 66 6F 72 60 




FCC 


'foriaat p 23i59s59*' 


C34A 00 OA 3E 20 




FCB 


CH,Lf.'>.SP 


C34E 04 




FCB 


EOT 


C34F OOOA 


OATST 


FOB 


CRLF 


C351 49 6E 70 75 




FCC 


'Input date iu •DAY.nOH.DO - 


C36B OD OA 3E 20 




FCB 


CR.LF.O.SP 


C36F 04 




FCB 


EOT 


C370 49 6C 6C 65 


ILWSC 


FCC 


'illegal input value!V 


C386 04 




FCB 


•OT 



* This routine reads the tite and date and sterts 

• the value; in YTErC and VDATE resPtctiveh 

0014 STATUS W 20 status remter 

C387 RDTlrt EOLI ♦ 
C387 34 76 PSHS A.B.X.V.LI 5ave t^e titportant stuff 

C38° E06E F7W LOY •arxt: -> start of the 1*58167 rev 

♦ Start bY rtadin9 the tite 



C380CE 


C112 






LDU 


■VTIpC 


-) «Aere U put tite 


C390 66 


04 






LDA 


•a* 




C3V2 80 


16 






B$R 


R&Tin: 


cenvtft lr st»rt hours 


C394 66 


03 






LDA 


irtiN 




C396 80 


12 






BSR 


RPTIHI 


convert lr store unutes 


C398 86 


02 






LDA 


t$£C 




C39A 80 


oe 






BSR 


ROT mi 


convert & store sectnds 


C39C 86 


04 






LDA 


•EOT 




C39€ A7 


5F 






STA 


•I.U 


set tnd of string 


C3A0 20 


38 






BRA 


RDTim 


nou rtad tht data 






t 
• 


Rtad the specified register 




C3A2 


LAD 


•OU 


t 




C3A2E6 


A6 






LC8 


ArY 




C3A4 60 


A* 14 






TST 


STATUS, Y 


test for register re^l over 


C3A7 26 


F9 






BfC 


XREAO 




C3A9 39 




* 




RTS 
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C3M 80 Ft 
C3AC IF 98 



C3AE 44 
C3AF 44 
C380 44 
C381 44 



* Convert BCD dnits to ASCII B» 
§ 

C3AA R0T1H1 EQU • 

BSR IREAD 
TFR B.A 
I 

* Convert ftSfi 
I 

L3AA 
LSRA 
L9AA 
L9RA 



read tho specified register 



cm oo oa at 20 

C34C 04^ 

C3IF 000A 
C351 4? 6E 70 75 
C36B00OA 3E20 
C36F 01 

C370 49 6C 6C 65 
C386 04 



O0I4 

C387 
C387 34 76 
C38« 108E F700 



C38DCE C1I2 

C390 86 #4 

(3*2 80 16 

C*>4 86 0? 

C396 $0 12 

C398 86 OC 

CW80 OE 

C31C 86 04 

C39E A7 3F 

C3A0 20 38 



C3A2 
C3A? E6 A6 
PA4 6D A8 14 
C3A7 26 F9 
*A9 39 



* Convert LS8 

§ 

FCB 
FCB 

0AI5T FOB 
FCC 
FC8 
PCS 

JLVHSG FCC 
FCB 



auF.o.sP 

■OT 

car 

'Ineut date in "DAY,H0N,00" 
Cft.tftO.9 

EOT 

'tllettl input value!"' 
EOT 



* This routine reads the titee and date aJ»d stores 
§ the valves lit VTffC 4nd MATE respectively 

* 

STATIC EQU 20 status register 

ROTlrt COU * 

PSMS A»B*I.Y,U save tne inportant stuff 

10Y •afXK -> start of the WC8167 res 

* 

• Start b< re*din» the tiie 
t 

LDU IVTlrC -) uUtrt to put tite 



LDA 
BSK 

LIA 
8S» 
LDA 
BSfl 

LOA 
STA 
B*A 



MX* 

ROTim 

MlIN 
R0TIK1 
•SEC 
ROTIHJ 

•EOT 
-l,U 

WTIH4 



convert & *tore hours 

convert & store Minutes 
convert % store seconds 



stt end of string 
ni« read the data 



C3AA 



C3AA80 F6 
C3AC IF 98 



C3AE 44 
OAF 44 
C380 44 
C381 44 



C5CC4 OF 



read the specified register 



* Read the specified register 
i 

IRfAO EOU • 

IW A,Y 

TST STATUS.Y test for renter roll over 

»€ 1REA0 

RTS 
• 

« Convert SCO dmts to ASCII BIO 
i 
RDTJril EQU t 

BS* IREAD 

TFR B.A 
e 

* C»nver t r^8 
t 

LSRA 
LSftA 
LSAA 
LSftA 
t 

* Convert LS8 
t 

MOB WF 

e Convert MSB i LS8 to ASCII 



C3W C3 3030 

C387 ED CI 

C389 86 3A 

C388 A7 CO 

C380 39 



AOOD 


•'Oo256*'0 


SID 


O.IK* store characters 


LOA 


r: 


STA 


o.u* 



RTS 



* Convert binary nutter to correspondent strmt 



C38E 80 


C3BE 

It 


RDTIfC MU 
BSft 


i 

IfEAft 


read the specified register 


C3C0CJ 


09 


chpb 


•9 


cfceck BCD ranse (> 97) 


C3C2 23 


02 


BLS 


•♦4 




C3C4 CO 


06 


sues 


16 


take it binary 


C3C6 34 


04 


P3KS 


B 




C3C8 58 




ASL8 






C3C? E8 


EO 


ADOS 


0,S* 




C3CB 3A 




ABX 




•> pickup strin* 


C3CC C6 


03 


LOB 


#3 


•ove 3 characters 




C3CE 


RDT1K3 EOU 


i 




C3C£ A6 


SO 


IAA 


Q.U 


**v* table char to ... 


C3W> A7 


CO 


STA 


0,lK 


para»«ter strin* area 


C302 5A 




OECB 






C3Dt 26 


F<* 


BK 


RDrim 




C3C5 86 


20 


LOA 


•SP 




C307 A7 


00 


STA 


OrU* 


insUII separator 



C389 39 



C3DA CE 

ODD 30 
C3EI 86 
C3M 80 

C3E5 30 
C3E9 86 
C3EB80 

C3ED86 
C3EF BD 

C3F1 86 
C3F3 A7 



C3DA 
C102 



RTS 
« 

• Read the data 
t 
fflmru EOU i 

LDU IYDATE 



-> where to put date 



80 FKF 

05 

D9 

80 FETO 

07 

01 

06 
89 



LEAK (DUTR-3.PCfi -> day of Meek table 

LDA IOOU read dar of week 

BSR RDTIH2 convert to ascu strin» 

LEAI HQNTtt.-3»PCR -> .octk Uble 

LOA IflON read •entb 

BSR R0TIH2 convert to ascn strin* 



2f 
5F 



LOA 


•D» 


read tfat of tenth 


BSR 


ROTtnj 


convert to ascn BCD 


LDA 


•SP 




STA 


-KU 





* The follotfin* code stores the year portion of 

* the date in the YDATE strini. Pve last 2 

* dints in the year are votten fro* the 

* FLEI date retistor and converted to a 2 

* ditit ascn value. 
§ 



C*3CC 


3139 


C3F8 ED 


CI 


C3TA86 


CC10 


C3D 80 


2C 


C3FFEC 


CI 


C401 86 


04 


C403 A7 


C4 


C405 35 


76 


C407 39 





U» 


•M#256 


•'9 M9' 


STD 


0,0^ 




LDA 


SYW*2 


9et binary year 


BS8 


BINASC 


convert to ascn 


STD 


0.U»* 




LDA 


IEDT 




STA 


o.u 


set end of strm» 


P1J.S 


ArB.I,YiU restore the limtant stufF 


RTS 







ASCBIK - ttiis routine converts 2 ascn cnars 
to binary 

enteyj ACC D contains 2 ascn characters 

^i t! ACC A contains biaarv equivalent 
Ca*ry is clear if difits are 



68' Micro Journal 



57 









v4hd denial di9its (0-91, 


(453 39 




RTS 


return 










♦thermae 


carry is set 






EKD STAR1 










* acCutoUUrt A *rri 8 ire ust'd «nd fw.t 


FJ*WFIS> DETECTED 












• re< 


r f*d. 
















C4#3 


A5CBIN EOIJ 


• 














C403 31 


30 


C** 


4*0 


make sure *ir*t ascii 


SYftJOL TABL£ 










C40A 75 


1C 


BIO 


BAIIG 


cr.*r fj between 












C40C 31 


3* 


im 


a 9 


i.nd * 


ADD8X C036 


ASCBIN C40* 


ASftAD 0001 


AS4AET 0002 


KC 0008 


C4ee :: 


1$ 


&I1 


BAIIG 




8AD1G C428 


BADVR C29B 


BAT 0005 


8AS 0003 


BELL 0007 












em oooo 


B1NASC C42S 


BS CCOO 


B« CC07 


8UFTW CC14 


C5io c: 


30 


CM 


• 


iHtce sure second asui 


OK C440 


CUBS C02I 


cm ccia 


aOCK F700 


CIO 0002 


(41. 25 


!4 


BLO 


BAIIG 


ctaf is between 


OflJUi CC28 


OOC CC2? 


CODS CDOO 


CT OOOO 


mf oooa 


c<:« a 




Of* 


• ■* 


^r>d 9 


CXJRC CCiB 


DM 0007 


OATST C34f 


OWV OEOO 


OQ 1X01 


t*it :; 


10 


m 


BAPIG 




KPTH CI03 


lift 1009 


DIRTS 0005 


DISP1,V C26C 


OISTD C154 












0(»LE C430 


DODWD CD4B 


DOM 0006 


OOS CCOO 


OOU 0005 


C4JS $4 


Of 


AMA 


ttOOOOLLLL le*p low 4 Ht« 


OIMTR C2B3 


VLrtSG C2£E 


CJECT »08 


ENV CC20 


EOL IC02 


C41A C4 


OF 


ANDtif 


tttottj 1 1 1 


EOT 0004 


erri cm 


ESC CCOA 


ESC«R CC16 


FACP 0010 


C41C 34 


(4 


PSHS 


B 


«*v* 2nd di9it 


FADP 0040 


FMP 0020 


FAUP 0080 


FCBAS 0002 


FCOASf 0409 


C41E C6 


OA 


LDB 


4(0 




FC6CDA OOff 


FCBCP OOIE 


FCBCRN 0020 


FCBOA 040B 


FCBDI 0022 


C42f 3D 




mn 




•vliM» first bt 10 


FCBW 0013 


FCBEDA 0013 


FCBESB tOOl 


FCBfA OOOF 


FC8FC 0000 


C421 IF 


98 


tFR 


P. A 


8 -> A 


FCBFCD 0019, 


FCBFDD O032 


FCBFS 0015 


FCBFSH 0017 


FCft£* 0140 


Ul) AB 


EO 


AtlA 


!,$♦ 


add ir» r$ dmt 


FCW.P otk 


FCBNAM 1014 


FCBKtf 0024 


FCBRI 0023 


FCBRS1 0010 


C425 ]C 


FE 


CLC 




s*t «ood w: 


FCBFS2 0018 


FCBS8 0040 


FC8SCF 0038 


FC8SCR 0035 


FCttW 0011 


C4:7 J9 




RTS 




return 


FCBVEK 0435 


FCDDAV 001A 


FCDWFK 0019 


FCDYR OOIB 


FIA CC26 


C42S IA 


01 


MD10 SEC 




set t*d RC 


FIEF CC2F 


FUI CDOO 


FWS D40I 


FKSCAL D406 


FKSaSD403 


C42A 39 




RTS 




return 


KHSEWRO20 


F.tSINT 0400 


FOA CC24 


FSWAN 0002 


FSHSGO 0000 












CETCW C015 


GEJF1L CD2D 


GET>€X C042 


IOUR 0004 


1LWSG C370 






• B1NA51 - Uu routine coverts a 1 


IN6UF C01B 


IMCK CD09 


1NCM2 CDOC 


1KDEC C048 


10FLO mi 






• b 


rte binar* 


number (<= *9 base JO) 


I3«TCM CC23 


LAO CCIB 


U OOOA 


UCBtf C080 


LOAD ago 






* to ascu. 




LSTRtl CCU 


«AP CCOO 


NEfOCI K28 


M1N 0003 


ft* 0007 












MOWTH C2C9 


NULL CC05 


KXTIH CD27 


OSWIOI CC22 


OUT 0008 






t er.tr.: Kt A <o*tair«$ frif.arr rnjnt>e/ 


OUTA0RCI45 


euro* COOF 


0UTCM2 CI12 


0U7IK CB39 


OUD€I C03C 






« tut; ACC D conta 


ins 2 dint ascu re* 


m CC09 


POlf CI24 


POATA FBOC 


POUr CIE4 


PflOK CC08 












PRHVC CC19 


PRINIT CCCO 


PPT OOOA 


PSTWC CDIE 


FVTCM* CD18 






t Accumulators A and B are used and not 


RDTlnj C3AA 


RDT1M2 C38€ 


ADTIH3C3CE 


ADT1H4 C30A 


RDT1« C387 






* restored. 




f£AI C298 


RENTER CD06 


RPTERRC03F 


RSTRIO C02A 


S8WTA0044 












Sairt: 0040 


SfiRSI 0042 


S(JI6C 0«F 


SffSC 0000 


SCfi 0006 




C428 


BW EQU 


t 




SEC 0002 


SCDAT1 C225 


SC0AT2C22E 


5EDAT3C233 


SEDAT4 C240 


C42B 34 


0? 


«MS 


A 


save binari 1 


SE0AT5C256 


SC0AT6 «62 


SEDAT7 C269 


SEDATE C108 


SETEXT CD33 


aaa 


08 


in 


16 


1 bits to snift out 


SETini C103 


S6TI»€ CI96 


SFA C980 


S1WE M23 


S1R0AY 0024 


C42F4f 




ORA 




hold BCD value here 


S1RFSI 001D 


SIRFSE 001F 


SIRFSS 0021 


S1RLEM 0028 


SIRflTH 0023 












SIRI1TS 0026 


Slf^Arl 0010 


SJRTS 0003 


SIRVH. 0011 


SiRYR 0025 




C430 


0G8L£ EOIJ 


• 




SP 0020 


SPS C700 


START C!25 


START1 C162 


ST»T2 C168 






• 






STAR73 CI6B 


START4 CJ7A 


STAT CD4E 


STATUS 0014 


STKA COOO 






• Double cum 


rnt BCD re. 


ult before 


SYIR ICOE 


SfORV CC#B 


SYS 0004 


SYSCCN CC4E 


SYSCR1 CCOD 






* Shlf t Iti? ou1 


t « bit fr«n the binary 


SVSCfr2 CC2A 


SVSCR3 CC30 


SVSCR4 CCFB 


SYSFCB 1640 


TAB CC06 






* fiumber. 






TIHST C321 


TRADKt CCtE 


1RFLG IC1D 


TXT 0001 


tCA C100 






• 






UCTA CC12 


IRAH 0*04) 


W 0002 


HWWS CD03 


WIDTH CC04 


C430 34 


02 


PSHS 


A 


double BCI value 


MKWV CCOC 


IBOR 0016 


xaaSE 0004 


XDELET OOOC 


XFI« 0014 


C432 AB 


ED 


ADDA 


0>Sf 




KM 0007 


XGRB 0011 


IIT CI93 


XNSS '>00F 


XID1R 0tX)6 












XOftEAO Ml 


X0S1R 0110 


XOOPDT OIOJ 


X0UR1T 0002 


XPIR 0006 


C434 19 




OAA 




(in BCO> 


XPOW 0015 


XPRB 0012 


XttAO C3A2 


XREHArl 0000 


KRESS 0006 


C435 6I 


E4 


LSI 


o.s 


Shift out i bit 


XKtt 00f€ 


X«S3 0013 


XRB4HI 0106 


XRSS 0009 


XRWB 0000 


C43? 24 


07 


BCC 


0* 


•rtneb if bit=0 


XTEff CI22 


IKS 0<*A 


YOATE C102 


YTIHE C112 


IRDTIN C387 


C439 34 


02 


PSHS 


A 


add ] to current 












C43B86 


01 


LOA 


11 


BCD value 












C43DAB 


EO 


ANA 


0,U 














C43F l« 




OAA 




in BCD of course) 












C440 5A 




C» OCCB 




$OfrO ftp 
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r>o. then continue 
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Classified 
Advertising 



TELETYPE Model 43 PRINTER - with serial (RS232) 
Interface, and fall ASCII keyboard- LIKE NEH - New cost 
$1295.00 - ONLY 1759.00 ready to run - Call Tom - Larry 
- Bob, CPI 615 842-4600 



For Sale: Motorola 128K Memory Boards, removed from 
SWPTC S/09 $795.00, SWPTC 8212 Terminals Demostrators 
$795.00. Hazelwood Dynamic 64K Memory Boards $395.00 
CaM ask for Tom 615/ 842-4600 

SWTPC 6809 system, 56K, KPL2, KPT, KFS2, 2 DS0D Drives, 

software. $599< 

Tom Harmon. 15418 Diana Ln., ouston, TX 77062 

713 480-6075, 



OS-9™ SOFTWARE 
FOR COCO 

SDISK — Standard disk driver module 
allows the use of 35, 40 r or 80 track single- 
and double-sided drives with CoCo OS-9 
plus you gain the ability to read/write/for- 
mat the standard OS-9 single- and double- 
density disk formats used on other OS-9 
systems. $29.95 

BOOTFIX — To make bootable double- 
sided disks (requires double-sided drive 
and SDISK). $9.95 



SDISK + BOOTFIX - 
together $35.95 



When ordered 



FILTER KIT #1 — Eleven utilities used as 
filters (with pipes) to give you "wild card 1 * 
directory lists, copies, deletes, moves, lists, 
pagination, etc. $29.95 

FILTER KIT #2 — Command Macro 
Generator to bu ild new commands by com- 
bining old ones,and 9 other utilities. $29.95 

HACKER'S KIT #1 — Disassembler and 
memory dump/fill utilities allow you to 
disassemble OS-9 assembly code from 
disk or memory. $24.95 

Send SASE for current catalog. 

Terms: Prepaid check, MO, Visa, Mastercard or 

COD. Add $1 S&H, (COD $3 extra). 

D.P. Johnson, 7655 S.W. Cedarcrest St. 
Portland, OR 97223 (503) 244-8152 

(We appreciate your calling only between 9-11 AM PST.) 

OS 9 is a trademark of Microware and Motorola Inc. 



SWTP S/09 CXWUTER 

128K, CT-82 TERMINAL, DUAL 8" FLOPPIES, MP- WP 

INTERFACE. JUST LIKE NEW. SOFTWARE INCLUDED. 

$3400.00 CALL LIEF days:<512)454-1215 

nlghts:<512)258-5751 

FOR SALE: PR-40 printer $60, APTEK 4K 1702 SS50 EPR0M 
board, F&D 1702 programmer (uses MPLA) both 1100. 
Universal Data 212/105 modem $300, DS68 103 modem card 
populated, never used, with EDC coupler $50. 
Gordon C504J889-T224 

SELLING 0UTI Glmlx #39 Mainframe w/dual 8 n Oume Floppy 
Drives, 340K Glmix static ram Glmlx Intelligent 1/0 
Processor board, other serial/parallel 1/0 boards. 
PRI VAC hl-res graphics, META-LABS 280 CPM board, 
Wlndrush Prom Burner, 5 Meg HH4 Hard Disk, Z19 terminal, 
9511. Much software. Original Cost over $13000- AM for 
only $6800. Will sell some pieces separately. 
Calf Dick evenings at 215-257-3992, 

FOR SALE: The following SWTP-6809 Flex/Uniflex 
components: 2-S/09+ mainframes, 2-8212's, 3-64K boards, 
2- dual 8-Inch diskette drive. OUME 45cps printer with 
tractor and sheetfeeder and MP-QP interface board. 
MUST SELL. 
Make offe s to Richard Davidson, (517)332-5989- 

ALL GIMIX 6809 SYSTEM--CLASSY CHASSIS, 56 KB STATIC 
RAM, DUAL 40 TRACK DSDD DRIVES CTAN00N), DMA FLOPPY 
DISK CONTROLLER, 2 SERIAL CARDS <4 PORTS), 2 PARALLEL 
CARDS (4 PORTS). GTMIX CABLING AND CONNECTORS, FLEX 9.0, 
OS-9 LEVEL 1. TSC BASIC, TSC DIAGNOSTICS, TSC ASSEMBLER, 
TSC EDITOR^ TSC UTILITIES, STYLO AND MOUNTAINS OF OTHEF* 
APPLICATIONS SOFTWARE. GUARANTEED NEW CONDITION NO 
GLITCHES OR INTERMITTENTS. MUST SELL, BEST OFFER OVER 
$1000 PLUS SHIPPING. 

CALL (505) 662-7417 NITES. TOM GARDINER, 393 EL VIENTO, 
LOS ALAMOS, NM, 87544. 



OTJf ILER EVALUATION SERVICES 
By: Ron Anderson 

TTte S#E* ICDIA Division of Qanputer 

Publishing Inc*. 

Is offering ttte following ^SUBSCRIBER 

SERVICE*: 

Crjfll-ER C9FARISI0N AMD EVALUATION RETORT 

Due to the constant and rapid updating and 
enhanchment of numerous compilers, and the 
different utility, appeal, speed, Jevel of 
communication, memory usage, etc., of 
different compilers, the following services are 
now being offered with periodic updates* 

This service, with updates, wllJ allow you who 
are wary or confuseo by the various cfalms of 
compiler vendors, an opportunity to review 
comparisons, comments, benchmarks. etc-, 
concerning the many different compilers on 
the market, for the 6809 microcomputer- 
Thus the savings couJd far offset the small 
cost of thfs service. 

Many have purchased compilers and then 
discovered that the particular compiler 
purchased either Is not the most efficient 
for their purposes or does not contain 
features necessary for their application. 
Thus the added expense of purchasing 
additional compiler (s) or not being abJe to 
fulJy utilize the advantages of hfgfci Jevel 
language compilers becomes too expensive . 

The following COMPILERS are reviewed Inltlalry, 
more wlJI be reviewed, compared and 
bench marked as they become available to the 
author; 



PASCAL "C" 



GSPL WHIMISCAL PL/9 



Initial Subscription - $39.95 

(Includes 1 year updates) 
Updates for 1 year - $14.50 

S.E. MEDIA - CPI 

5900 Cassandra Smith, P08 794 

HSxson, TN 37343 

615 842-4601 
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MICROKEY 4500 a professional 6809/ 

FLEX COMPUTER SYSTEM 




TECHNICAL EXCELLENCE IN A SINGLE-BOARD 
COMPUTER FOR SYSTEMS DEVELOPMENT, O.E.M., OR 
APPLICATIONS. 

BY USING THE SAME BOARD IN YOUR TARGET SYSTEM 
AS YOUR DEVELOPMENT SYSTEM, YOU CAN SA VE TIME 
AND MONEY! 



PKEY Features 



• 6909/2MHZ PROCESSOR WITH 128K RAM AS STANDARD 

• fLEX OPERATING SYSTEM OR poIyFORTH AVAILABLE 

• m and 5'/« in. DISK DRIVES CAN BE MIXED 

• 16 COLOR. HIGH RESOLUTION GRAPHICS. 

• NORMAL, ULTRA HIGH RES AND PAGE FORMAT MONOCHROME MODES 

• TWO INDEPENDENT VIDEO OUTPUTS 

• MULTITASKING • INTERLACE MODE. 



SPECIAL OFTER FOR LIMITED PERIOD 



DEV SYSTEM 
TRIPLE DRIVE 

TARGET BOARD 
128K RAM 



$1,899 
$450 

SHIPPING AND TAX EXTRA 




ORDEfGANDeNQUHVCSlO 
M1CR#KEY LTD. 96a. Si Mmes's Street. 
Bnghion Sussex England Tel 0273 672911 




FLEX is a trademark 
ofTechSys. 
Consultants 
polyFORTHisa 
trademark of 
FORTH INC 



OS-9 SUPPORT FOR FD-2 



NEW! 




NEW) 



Run doubfe der sily on any S-50 6600 or 6609 computer Who etse can 
offer this capability a! these low prices'? The TD-2 fealures 

Coolrol Of up to four 5%" OS/OO O rives 

SS-30 or SS-30C compatible 

Use Fie*. OS-9, or Siar Dot operaling systems 

2 MHZ operalion with no "slow I/O" required 

Compatible with SWTPC QCl. DC2, OC3. or OCa conl rollers 



FD2 


Assembled/Tested Controller Card 


Si 49 95 


ORv-66 


6600 double density drivers • format program 


$ 19 95 


ORV-69 


6609 double density drivers • format program 


$ 2995 


ORV-09 


FD 2 Disk On vera for OS-9 (Source) 


$10000 


STAR-OOS 


For SWTPC & FD-2 


$ 7500 



PERIPHERAL TECHNOLOGY 

"Supplying Floppy Disk Conirollera Since 1976" 

3760 Lower Roswelt Roed 

Marietta, Georgia 30067 

VISA'MASTERCARO/CHECK/COO 404/973-0042 

»■• '* * «»■*«* «♦ M^pweandMoiwoii 




XPNDR1 



Tr>« XPNDR \ cenf ri dvngnid tao>*9 *<o tn* CoCo40 i>n 
e»oansior> connector *t\* r toowt' tfte6809Eadd>»stand 
database* docti sod control Mr"** sr« available 'or tow 
prrtfiCVD* Hardware VOu can mo connector* tor ROM 
oe*t p<*Uwtnt#»cor*m<rc«t<9n»tfu*r1ac* add per- 
e*eretc*«ri vo 9uecurx graoNc* e«d *e»ce tor t*ntaave/«« 
or pe*io arvt 40 'e)nt, Dm*o orctrt* to «nr>w ande^ertrf 
eitarnat ivfnti Pertcipeta *> tdi£Ai4»ftaJ promt* and 
much nvcri more 

SNNm *• tto bottom **» o* t*e core ***** V* CoCo 
S»0r*tv «r» <ttn£flt«dfor f*tt aCCtr*ate **nnQ aftO *ou COn 

Mt tnt oitrtfvt power »na en»*d buses 

Made *rom OoUMwM gleas/«oo>t «nV» p*»ted U*-» 
r«lM tr«4 3 ^ 6 3 inch XP««0B1 «f aWSsdlor ttandftrdO 3 
end 6 <*cn **e* due* <n^ C societa o»t#a art t*a 
outbt^v and it a pnd ot solder peos on 1 #ne* centers 
Tn* edge ofwccot end on»*fl<no. tab* wn ootd ptatad 



Tits »t t coue* cmrt i 
overact Uaaes and c 
prototyping 



i plant, Qi dearancr oa t ween 
> -t w* •wnfl «* io a tot o* 



•18 eS aaan ar ■ far »3B 



Indbdee B oeoes o* AppitcmNon Mot— to nefc ¥<** laern 
about cr*p« ens how to correct tham to vo*r CoCo 



S«perGuide 

Here t« a o^«o«o^ c ard eud* maoo (oi 
totem to afcyn and i^scxt prototto* 
cares <n th* CoCc GDM pen slot a 
nea» braaktfypuj- pnabfrm sflrvar 
Insert or nwnyve ^tendv Oroe* one 
1or\*>r XPHOR1 cares 

Sa.BSaaeK 



rar crvnedwtc avr< lane «n?i pay 
First Dass ooscagel send enact or 
men** cdf Of thf nwmbar and 
ato^ration Oat* c» vour ViSa ar 
MASTERCARD to 



f30X 30607 SEATTLE. WA 96l03 
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GOOD NEWS ! 



JMU 



T 



MQL 



CORPORATION 

Ht7 W. Virginia St. 
Miluauhee. H7 WO I 
< til) 276-29X7 



6809 
NEVER 
BETTER! 



mS 



INTROL-C/6809,Version1.5 

Introl's highly acclaimed 6809 C 
compilers and cross-compilers are now 
more powerful than ever! 

We've incorporated a totally new 6809 
Relocating Assembler, Linker and Loader. 
Initializer support has been added, leaving 
only bitfield-type structure members and 
doubles lacking from a 100% full K&R 
implementation. The Runtime Library has 
been expanded and the Library Manager is 
even more versatile and convenient to usa 
Best of all. compiled code is just as 
compact and fast-executing as ever - and 
even a bit more so! A compatible macro 
assembler, as well as source for the full 
Runtime Library, are available as extra-cost 
options. 

Resident compilers are available under 
Unifies, Flex and OS9. 
Cross-compilers are available for PDP- 
11/UNIX and IBM PC/PC DOS hosts 

Trademarks: 

Introl-C, Introl Corporation 

Flex and Uniflex, Technical Systems Consultants 

OS9, Microware Systems 

PDP-11, Digital Equipment Corp, 

UNIX, Bell Laboratories 

IBM PC, International Business Machines 

For further information, please call or write. 
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THE 6809 "UNIBOARD"™ 

SINGLE BOARD COMPUTER KIT 

PERFECT FOR COLLEGES. OEM S. INDUSTRIAL 
AND SCIENTIFIC USES) 

64K RAM! DOUBLE DENSITY 
FLOPPY DISK CONTROLLER! 



A^ 



#te, 



% 



y 



BLANK PC BOARD 



$ 99 



95 



WITH PAL'S, AND 
TWO EPROMS. 



FORS-1/4 0R 8 INCH 

SOURCE DISKETTE 

ADD $10. 




00 



$249 

COMPLETE KIT! 
FULLY SOCKETED, 



PRICE 
CUT!! 



< Ui 

QD 

£ u 

32 
OO 

^% 

o=> 

ED m 

w u_ 
ui <t 

o 

If 

si 

3* 






THE COMPACTA UNIBOARD™: Through special arrangement with COMPACTA INC., we are 
proud to have been selected the exclusive U.S. Mfg. of their new 6809 UNIBOARD™ COMPUTER 
KIT. Many software professionals feel that the 6809 features probably the most powerful 
Instruction set available today on ANY 8 bit micro. Now, at last, all of that Immense computing 
power Is available at a truly unbelievably low price. 



YOUR CHOICE OF POPULAR 
DISK OPERATING SYSTEMS: 

FLEX™ from TSC *99 

OS9" from Microware $199 

Specify 5-1/4 or 8 Inch 



FEATURES: 

* 64K RAM using 4116 RAMS. 

* 6809E Motorola CPU. 

* Double Density Floppy Disk Controller 
for either 5-1/4 or 8 inch drives. Uses WD 1793, 

* On board 80 x 24 video for a low cost console. 
Uses 2716 Char. Gen. Programmable Formats. 
Uses 6845 CRT Controller. 

* ASCII keyboard parallel input interface. (6522) 

* Serial I/O (6551) for RS232C or 20 MA loop, 

* Centronics compatible parallel printer interface. 
(6522) 

* Buss expansion interface with DMA channel. 
(6844) 

* Dual timer for real time clock application. 

* Powerful on board system monitor (2732) 

Features commands such as Go To, Alter, Fill, Move, Display, or Test Memory. Also Read 
and Write Sectors. Boot Normal, Unknown, and General Flex™. 



PC BOARD IS 

DOUBLE SIDED, PLATED THRU 

SOLDER MASKED, 11 x 11-1/2 IN. 



Digital Research Computers 

** (OPT€XAS> 

P.O. BOX 461565 . GARLAND. TEXAS 75046 • (214)225*2309 



TERMS: Shipments will be made approximately 3 to 6 weeks alter we 
receive your order VISA. MC. cash accepted Add 54 00 shipping 
USA AND CANADA ONLY 
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64K SS-50 STATIC RAM 



•N^ N 



$149 



00 

(48K KIT) 




N £ty, 



**> 



Oft 



**o M/ 



BLANK PC BOARD 

WITH DOCUMENTATION 

$4S 



SUPPORT IC* ♦ CAPS - $18.00 
FULL SOCKET SET - $15.00 



ASSEMBLED AND TESTED ADD $50 
FEATURES: 

• Uses new 2K x 8 (TMM 2016 or HM 6116) RAMs. 

• Fully supports Extended Addressing. 

• 64K draws only approximately 500 MA. 



56K 
64K 



MflO 

'199 



200 NS RAMs are standard. (TOSHIBA makes TMM 2016s as fast as 100 NS. FOR 

YOUR HIGH SPfeED APPLICATIONS.) 

Board is configured as 3-16K blocks and 8-2K blocks (within any 64K block) 

for maximum flexibility. 

2716 EPROMs may be installed anywhere on Board. 

Top 16K may be disabled in 2K blocks to avoid any I/O conflicts. 

One Board supports both RAM and EPROM. 

RAM supports 2MHZ operation at no extra charge! 

Board may be partially populated in 16K increments. 

16K STATIC RAMS? 



CLOSE OUT SPECIAL 
WE HAVE DROPPED OUR 32K SS-50 STATIC 
RAM BOARD WHICH USED 2114 LOW POWER 
RAMS, WE WILL SELL THE REMAINING 
STOCK OF BLANK PCB'S WITH DATA FOR 
$17.50 EA, THESE FORMERLY SOLD FOR $50. 



The new 2K x a, 24 PIN, static RAMs are the next generation of high density, high 
speed, low power. RAMs Pioneered by such companies as HITACHI and 
TOSHIBA, and soon to be second sourced by most major U S manutacturers, 
these ultra low power parts, feature 2716 compatible pm out Thus fully 
interchangeable ROM RAM boards are at last a reality, and you get BLINDING 
speed and LOW power thrown in for virtually nothing 






Digital Research Computers 

(OF TEXAS) 
PC BOX 461565 . GARLAND, TEXAS 75046 » (214) 225*2309 



TERMS: Add 52 00 r>o*Tiigi* Wt- p 4 iv hiil.inr<> Order under $15 aOd 75C 
handling NoCOO We accept Vtsa and Mastm Charge Tex Rps add 5% 
Fan Forwgn orders {eacepr Canada) add 20SP&H Orders over S50 add 
BbC lor imurjjncp 
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DISKETTES AND 680X SOFTWARE 

SUPER SLEUTH DISASSEMBLER EACH S99-FLEX. $101 -OS-9. $100-UNIFLEX 

intaraetiualy Otntritu aourea on dia* with labala, includes Aral, labal daliniHon. binary Jila editing, etc 
aOOiity 5900 1.2.3.5.8.S/68Q2 ve*»*on o* 2-6Q/8060/B6 version 
OS-9 and UNIFLEX v*r*iont alto proem FLEX objtct fill formm 
0BJEC1 ONLv v «riiD>vi EACH I50-FLEX ft 0$-9 W9COC0 DOS 
COCO DOS «volla«9lo In 6900.1,2.3.5.8.8/9502 vereton oftty 

CROSS-ASSEMBLERS EACH $50-FLEX/UNIFLEX/OS-9, ANY 3 $100, ALL $200 

soocity lor iBOx, 6SOa. 600*. 2-90. 9D49/51, 9085. 69000 
iroe modular. lr*e~-ateridir*o eroea-eaaembi*** written «r C 
0-6*1 aourea meloded only will* til ctoos-etaem le«a (for $2001 

DEBUGGING SIMULATORS EACH S75-FLEX, S100-OS-9, $80-UNIFLEX 

epocily 6800/1. t14tt90V 6502. 6909 OS-9, 2-80 FLEX 
OBJECT ONLV ve r«to»«? EACH IS0-4OCO FLEX ft COCO OS-8 

6502 TO 6809 ASSEMBLER TRANSLATOR 

tranalatea 65C2 P*oo*ama To 6909, noting tnoAJd co*vof«>o*a 

6800 TO 6809 & 6809 PIC TRANSLATORS 

tranaialaa 9900 D*oo*em to 6909. 6609 preaeama to 0»C 

FULL-SCREEN FLEX AND UNIFLEX TSC XBASIC PROGRAMS FOR 6809 



S75-FLEX, S85-OS-9, $80-UNIFLEX 
$50-FLEX. S75-OS-9, $60-UNIFLEX 



SS0 w/aourto, $25 wltnoul 
6100 w/eoorea, $50 without 
$100 «w aourea $50 without 
$100 wfeourva. $50 without 



$50-FLEX & UNIFLEX 



Iwlth complete euraor eonTro't 
DISPLAY GENERATOR/OOCU MENTOR 
MULING LIST SYSTEM 
tNVtNTORV WITH MRP 
TA6ULA RA&A SPREADSHEET 

DISK AND XBASIC UTILITY PROGRAM LIBRARY 

edit sectors, sort directory, maintain master calslo*. do die* $om. are* SASlC, „- 

CMODEM PROGRAM $100-FLEX & OS-9 & UNIFLEX, OBJECT-ONLY EACH $50 

provLOea menu-driven lelecommuntcatlona ffocllllioo. with terminal modi. UP/d wn load. MODEM? protocol* alt 

5.25' SOFT-SECTORED DISKS EACH 10 $13-SSSD $15-SSDD $17-DSDD $25-DSQD 

with lac* el a end Hub fine* 

SS-50C 256K 1.5MHZ MEMORY BOARDS BLANK $100 A&T $350 

with instruction manual* schematic*, and daiay jme. all pane readily available 

Moat orogrtma m aourea on d a* aoodiy computer, duk so*, operat+no avstem 

Contact CSC lor foil catalog and doaiar information 

25% dracQunt tof multipla purchsaes of Mmi program on uim ordar 

For VISA and MASTER CARD, give account, and data, phono. US lunda only 

Add GA um Ua and 5% thipomg. no arnppmg tot dish* in 100 * 

lUNDfLEX tradomara technical Syatama Conaultanta OS-8 trademark Mice were. 



Computer Systems Consultants, Inc. 

1454 Latta Lane, Conyers, GA 30207 

Telephone Number 404-483-1717/4570 



SOFTWARE 
HARDCORE 



" FORTH PROGRAMMING TOOLS from the 68XXAX " 
" FORTH specialists — get the best!! " 

NOW AVAILABLE — A variety ol rom and disk FORTH systems lo 
run on and or do TARGET COMPILATION for 

$800. 6301 6801, 6809, 68000. 8060. 280 

Write or call for information on a special system to lit your require- 
ment. 

Standard systems available for these hardware — 

EPSON HX-20 rom system and target compiler 

6809 rom systems for SS-50. EXORCISER. STD. ETC 

COLOR COMPUTER 

6800 6809 FLEX or EXORCISER disk systems. 

68000 rom based systems 

68000 CP/M-68K disk systems. MODEL 11/12/16 

iFORTH is a refined version of FORTH Interest Group standard 
FORTH, faster than FIG-FORTH. FORTH is both a compiler and 
an interpreter, ft executes orders of magnitudes faster than inter- 
pretive BASIC MORE IMPORTANT, CODE DEVELOPMENT 
AND TESTING is much, much taster than complied languages 
such as PASCAL and C. ff Software DEVELOPMENT COSTS are 
an impoitant concern for you. you need FORTH' 

firmFORTH 7 " is for the programmer who needs to sQueeae the 
most into roms. It is a professional programmer's tool for compact 
rommable code lor controller applications 

p iFOATH and frmFORTH are lrad#mjoi» oi Toe©! *»cn»yjo*m 
m FLEX « a vsderna* pi Tec****) Systems CormAaVto me 
C CPt#^flK*iradamaAo<Ov«*B#5aart#» me 



tFORTH"* 

from TALBOT MICROSYSTEMS 
NEW SYSTEMS FOR 
6301/6801, 6809, and 68000 



- - IFORTH SYSTEMS <~ 

For all FLEX systems: GIMIX, SWTP, SSB, or EXORctsor Specify 
5 or 8 inch diskette, hardware type, and 6800 or 6809 

" IFORTH — extended fig FORTH (1 disk) $100 ($15) 

with fig line editor 
•• IFORTH + — more? (3 5' or 2 ST disks) $250 ($25) 

adds screen editor, assemble r. extended data types, utilities. 

?ames, and debugging aids. 
RS-80 COLORFORTH — available from The Micro Wofks 
" firm FORTH — 6809 only. $350 ($10) 

for target compilations lo rommable code. 
Automatically deletes unused code Includes HOST system 
source and target nucleus source. No royalty on targets Re* 

? lutes but does not include tFORTH + 
ORTH PROGRAMMING AIDS — elaborate decompiled 1 50 

•• tFORTH for HX*20, in 16K roms for expansion unrt or replace 
BASIC $170 

•• IFORTH/68K for CPM-68K 8* disk system $290 

Makes Model 16 a super software development system 

•* Nautilus Systems Cross Compiler 

— Requires: tFORTH ♦ HOST + at least one TARGET 

— HOST system code (6809 or 68000) $200 

— TARGET source code: 6B0O-$200, 6301/6801— $200 
same plus HX-20 extensions — $300 

6809— $300, 8080/280-^200, 68000— $350 

Manuals available separately — pnee m ( ). 
Add $6 system for shipping. $15 for loretgn air 



TALBOT MICROSYSTEMS 1927 Curtis Ave., Redondo Beach, CA 90278 (213) 376 9941 
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WINDRUSH MICRO SYSTEMS 



UPROM II 

PROGAAHS end VERIFIES.: 12756, 
T250fl, 12716, T2516, lJr$2/2/«a, 
P.Cftas764/6, l276t/276U, T2564, 
127126/27126A, end 127256. 

l>'fht*l, T*Te<Aa, M-ftotorole. 

TKl-yQCt t^OUt **t MOT SUPPOSE & 

iHltL'e Intel loan! orOBreaatng 
(ta) l*pl«*ented for Intel 
2/Ok, ^»1^6 end i7«6 devices, 
intelligent prOoreaaing reduce! 
the average orogreaailng 1 1a* of • 
?7*A fro* 7 ainutes to 1 eiftute 
IS second (under FLE«> with 
greetly tevrovad reHebiiity. 

jj^ ] rullj enclosed pad with V 

ftit ribbon cable for connection 

to the host computer NCo6?1 PIA 

■ vYtW ' ' • Interlace board. 

I§ 

*C6o09 »oCT-ort for H£% and CS9 
(Laval 1 or 2, Version 1.2). 

• IdiMY OTSK fILE offset load*' 

• uPPLltd with FLEX, KP05 ind 059. 

flenu driven toluirt provides tht follcvlng facilities; 

a. MIL ... a selected erea of lha buffer uith a HEX char. 

b. HOVE ........... blfKXa of data. 

c. C**W tha buffer In Mil and ASCII. 

d. riNO ........... a airing of fciytei in the butler. 

a. EXA*i«e/c«A".QE . the contents of tht butler. 

f. CSC . checksua a selected area of the buffer. 

g. COPY ........... a selected area ol an fp«0M into t«* buffer. 

h. «BjFf a aittctMi area ol an EPAOM aaalnst the buffer. 

). PAOtftejt a selected area ol an EP«0* wHi> date In the buffer. 

J. SELECT ......... a, new IPSO* type (return to type* «enu). 

k. €tiTfa the erstea aonitor. 

L RETURN ......... 1o the operating intil. 

L. EXECUTE .... any 003 utility fonly in fLlx and 059 veri4qn»>. 

fit* AN& 059 VERSIONS AVAILABLE r*On Ct«U. SSQ/NoOS C0HTAC1 M OHECT. 
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• Friendly inter-Set Ive environment where you have INSTANT accees to the 
Editor, the Coapiler, «nd The Trace-Oebugger, yMcK, eaonBst other 
tMrtgs, can single etep the progree a SOURCE line at a tit*. Tou also 
have direct acceei to any FLEX utility end your eystea aonitor. 

• 575* oege aanuel organised as a tutor UL with plemy oi tjaaaples, 

• Feat SlNftLC PASS coapiler produce* B* Of COMPACT and FASr 6609 eachlne 
code output oer elnute Kith no rur^tlee ever h eeds. or~ license feet. 

• Fully ccapadOle with TSt text editor foraat dm file*. 

• Signed and unsigned BTTtS and INTEGERS* 12-bit tloat tng point *E»Ls. 

• vattort (tingle d leant 1on arrjytJ and pointers era supported, 

• nathaoatlcal expression*: (♦), C->, (*>, </), modulus <\l m n«gac ton (-) 

• E^praailon tvaUietort: (■>-, (o»j (<>, (», <>•), <<■> 

• Bit operator*; (AND> # (gt> # LCOft/x«ft^ (MOD, <$h!FT), (S^P) 

• Logical operators: (.AN»>. <.0»J r (.EOH<X0t> 

• Control kteteaenlt: IF . .THEN. .ELSE, IF . .CASH . .CASC2. .ELSE, BEC1M..EK0« 
WHILE.., REPEAT.. UNTIL/ «E*"EAf . .FOREVlH, CALL, J«f«l>, RETU«ir r BHE*r r GOTO. 

• Direct ICCtlf 10 (ACCA), <ACCB)# <ACCO), (XREfi), (CCK) and {STACK). 

• FUUV tuooarti the NCooOV fCStl, mi, Fl««, HA, SWl, SV12, and Slrl! 
veetort. writing a «tlf-atarting <fro*> po«er-up) prooria tnat oaea A(*T. 
or ALL, Of the NCoMr? Interrupts (t an ebaolute *nap \ 

• Rachine coda aay be aabedded in the oro^rm via the 'GEN' e (attain*. Thii 
enablei you to coda eriiical routinei in aeieably language end eabtd then 
In the PL/9 orograa dee 'HACE' for detaila). 

• Procedural e«y be Pened and **jr return variablai. Tnit aekei the« 
function* vjhlch behave *i thoU9h they uere an integral part of Pl/9. 

• Several fvlly docuaanted library orecedure aodutei ere auppUeo; I0SVB5, 
BJTIO, KA30I0, HE1I0, ^LEKIO. SC1PACH, STKSUBS r M5TIMM6, and REALCDM. 

' ... Trl|5 IS Tnl WOST EFFICIENT COHP|LE> I KAVC I0U1W TO D/JTC. ' 

Ouoted froa tmr\ Aiidertona FLEA Uaar Notea coluan in *&6. Mead ue tty aore? 



MACE/XMACE/ASM05 

All of these products feature a highly productive environaent where the 
editor end the eiteablar reside In aeaor? together, tent are the da) a of 
tadius dlaa. load and lave optrailon* m^tle you art debugging your code. 

• Frlervdly inier-acllve tn»^ron»ent ahert you rvave instant acceei to the 
Editor and tnt Asteabltr, FLEX utHlTlts »n6 your lystea aonitor. 

• MACE can also produce ASwltots (GEN staieeants) tor Plr9 ^1th the 
eestably Language %ource Passed to the output as coaattnts. 

• KHACE is a cross esaeabler for the 6$00/1/2/V6 ins aupporta the eitanded 
Btnaonici ot the 6305. 

• AMOS is a cross eiseatjler for the 6G0S. 



D-BUG 



L<X*,t*«e for a ainale step tracer end eini in-line dtaasesatltr inat is easy 
to u»t?? Look no further, yov have found it. This nackefle is Ideal tor 
those saall en*abl> language ttrogrea debugging sessions. o^aUC occupies 
loss than 6K (including its stack and variables) and aey be loaded anywhere 
in eeaory. All you dc 1t LOAD IT, AIM IT and SO! (BO col VMJt only). 



McCOSH C 



Thi» it as COatJltlt a *C coapiUr t* you win Hnd on any oparat Ing »y*t*a 
for the Mtr?. It Is toopltttLy coaoatlbU aith LMU tfll and only lacks 
■bit-fields' (ulHtti are of LlML* practical uie in an ft-bit wo<-LdM. 

• Pfoduces very tlfictnt eneadly \f>oue«e source output altn the *Z* 
source optionally interLeaved as eoaaenti. 

• a*iUt-1n optialier will thorten obfect code by about 11X, 
« Support * Inter If «vtd tsteabLr language program* 

• l«CLU0€S its oun esseabler. The TSC rtlotati^ aeseeoier is only required 
If you uant to generate your owrv Uor»r1*», 

■ Tnt pre-Processor, coeapiler, optialser, asseataler and loader all rtai 
Independantly or utidtr the 'CC* executive. 'CC (Mia> coiapHIng a proyraet 
to ateciitabla abject ee siople as lyplnb 1n "CC**ii l lO.C <REtuRN>'. 



IEEE -488 



• SvYPatt) AU PRINCIPAL KtES Of THE IEEE*4BB (19^/8) BUS SPEC If KAT lOHt 



- Talker - Sarlal Poll 

- Listener - Parallel PoU 

- Syslea Controller - Group Trigger 



- S-fngl* or Dual PMaary Address 

- Secondary Addreea 

- Talk only ,. . Listen only 



< Fully docmenlad ulth a caaplete reprint ol the KlLO&AUo article On the 
1EE£ bus Kid the Motorola Publfcatton *d>tt1np aboard the IEEE Bus*. 

» to* level a»«eafcly iang w ag ( drivare suitable lor 6600, ©80A, 6.802, 6B0J^ 
6608 and «*09 ere supplied 1n t«i.e forai of listings. A eoaolcte back to 
back teat progrea ta also supplied 1n the fort of a Hating. These 
drivers have been extensively tested and art GuARaNUEQ to work. 

single S-SO board (A# 6 or 16 addrataas par port)* fully socketed, gold 
pleted bus connectors -and IEEE inttrfece cable aeieably. 



PRICES 

b-flUO (6609 FLEA only) S 75.00 

PUCE <660V FLEX only) S 75.00 

XJUCE <6909 FLCX onty) 1 96.00 

ASPC5 (6609 FLEA only) 1 96.00 

PL/9 16»09 FLEX only) »1*6.0u 

'C <6S09 FLEA only) »295.D0 

[EEE-»86 with IECl-466 cable assembly S29B.00 

UPROw- I 1/U wtth one version of software tno cable or interface) .. t59$.0O 

HPROfs.Il/C ee above but coevleta with cable and S-SO InTtrFace ,...15*5.00 

CABLE 5* (ulai-n-llet 50 way cable with (DC connectors ...... S 35.00 

S*30 IHT 55-30 Interlace for UPtttt-ii 1150.00 

EXO* im Aotorole ElOfrbus lERORdser) interlace for VfnOm-j I ... «t95.00 

UPlcOel SFT Software drivers for ?nd operetinej systesn 

Specify FUX or 059 AN6 d1s« liMl I 33.00 

UPROfi SAC Assaably language source (contact us direct) 

ALL MUtl I II ( ID M Ul Mil rQtMM 

Teras; CVQ. Payaant by Int't Monty Order. VISA or fUSTt*-C»Rv alao accepted. 

GMtXSSS, FHL, MICfWWARE, TSC, LUCOATA. LLOVD I/O. 

i ALteHO 1 ASSOCIATES. 

FLEX Ul) it a iradaaark of Technical lysttat Consultants, 05-9 (la) la * 
tredtaark at M1crow»rt Jyfttai Corporation, P)M91 (ta) *n& [AQAeHer Urn) 
•re tradeaarts of noiorola Incorporated. 



WORSTEAD LABORATORf€S t NORTH WALSHAM r 
NORFOLK, ENGLAND. NR28 9SA. 

TEL: 44 (692) 404066 
TLX: 075548 W MICRO G 
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CoCo's Best & Fastest Spreadsheet System 

ACCLAIMED BY THE EXPERTS 

"DYNACALC is my choice for a CoCo spreadsheet" 
Dan Downard, RAINBOW, September, 1984. 



Built-in 



RAINBOW 

CERTIFICATION 
S€Al 



"Eat your heart out Lotus 1-2-3!" 
Scott Norman, HOT CoCo, October, 1984. 

Features: 

51 x 24 Display with Lower Case 

Super-fast Smart Screen Refresh 

Auto Repeat Keyboard Driver 

Keysaver (TM) repeats last command x times 

Disk Operating System (works just like ROM DOS) 

Easy communication with BASIC/DOS programs 

Fast 16-Digit Arithmetic with Scientific Functions 

Summation, Mean, and Standard Deviation Functions 

Logical Functions with String & Numeric Comparison 

String locate command to navigate large worksheets 

Sort full or partial worksheet by columns or rows 

Line, Bar, Hi/Lo/CJose, Circle Graphs 

Full Graphics captioning and overlay facility 

Graphics Drivers for all popular Printers 

Joystick/Mouse Driver for Cursor Movement 

Works with any ROM versions, even JDOS 

33k Available Worksheet Space 

Up to 256 Columns or 256 Rows 

Can use VisiCalc worksheets & training materials 

On-screen Help Messages 



NOW 
ONLY 

$9995 




/ 



now with 

V GRAPHICS! 



, m t«b rW a*r Wa. " j./n j . - 1 iu* %* dc» *?* 3« 



FOR 64K DISK SYSTEMS 

available from 

COMPUTER SYSTEMS CENTER 

13461 Olive Blvd. 

Chesterfield. MO 63017 USA 

(314) 576-5020 

10 to 6 Mon.~Fri. 



% 



CANADA- CDN $129 95 

RGS MICRO INC. 

759. VICTORIA SQUARE 405 

MONTREAL HZf 2J3 

TEL (514) 287*1563 

ORDER LINE ONLY * * * 

QUEBECONTARIO-MARITIMES 

800-361-5338 

WESfERN CANADA 800-361-5155 




or your local DYNACALC dealer 

Price US$99.95 
Outside North America add $10 postage 



DYNACALC Reg. U S. Pat. Off. 

Lotus and 1-2-3 are trademarks of Lotus Development Corp. 

VisiCalc is a trademark of VisiCorp 
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'68' MICRO JOURNAL 

<£ The only ALL 6800 Computer Magazine. 
it More 6800 material than all the others com- 
bined: ma qazINE COMPARISON 
(2 years) 
Monthly Averages 

6600 Articles TOTAL 

KB BYTE CC DOBBS PAGES 

7.8 6.4 2.7 2 2 19,1 ea. mo. 

Average cost for all four each month: $6,53 
(Based on advertised 1-year subscription price) 

68 cost per month $2.04 

That's R'ghH Much, Much More 

for About 

1/3 the Cost' 

OK. PLEASE ENTER MY SUBSCRIPTION 

Bill My; Master Charge Q — VISA D 

Card it Exp. Date _ 

For □ 1-Year □ 2 Years □ 3 Years 
Enclosed: $ 



Name. 



Stree* 
City_ 



State 



_Zip_ 



My ^Computer Is: 



68 Micro Journal 

5900 Cewandi* Smith Rd. 

Hlxson, TN 37343 

SUBSCRIPTION RATES 

USA 
1 Year $24.50, 2 Year 142.50, 3 Year $64.50 

•FOREIGN SURFACE Add $12.00 per Year to USA Price 

•FOREIGN AIRMAIL Add $36.00 per Year to USA Price 

••CANADA & MEXI00 Add $5.50 per Year to USA Price 
Cash (USA) or drawn on a USA Bank!!! 




$©j|£ffl@^ 




¥ 



STAR-DOS LEVEL I 

Whenever a new DOS is inlroduccd, litre's 
always I he problem of developing soflware to 
work wilh il. So we did il ihe opposile way — we 
analyzed ihe requirements of soflware lhai 
already exisis and developed a DOS thai mcl 
I hem... and exceeded iheml The resuli is STAK 
DOS Level I, a new DOS (or 6809 systems, ideal 
for single-user indusirial, conlrol, and advanced 
hobbyisi applicalions. This includes SS 50 
systems and single board compulers from a 
variely of vendors. 

Level I is compalible wilh mosi current 6809 
hardware and soflware On I he hardware side, il 
allows up lo len floppy or Winchesler drives wilh 
appropriale conl rollers. On ihe soflware side, il 
runs exisling 6809 soil ware from all ihe major 
6809 soflware suppliers, including TSC, Slar- 
Kils, Inhol, and others. 

Wrile or call for more information. STAR 
KITS Soflware Sysiems Corporalion. P.O. Box 
209, Ml. Kisco N,Y. 10549 (914) 241 0287, 




TAR-KITT 



A*©TRS0N CXMVTe? CONSULTANTS 

& 

Associates 



Ron Anderson, respected author and columnist 
for 68 MICRO JOURNAL announces the Anderson 
Computer Consultants & Associates, a con- 
sultfng firm dealing primarily In 68XXCX) 
software design. Our wide experience In 
designing 6809 based control systems for 
machine tools Is now available on a 
consultation basis. 

Our experience Includes programming 
machine control functions, signal analysis, 
muttl-axfs servo control (CNO and genera? 
software design and development. We have 
extensive experience In Instrumentation and 
analysis of specialized software, We support 
all popular languages pertaining to the 6809 
and other 68XXCX) processors. 

If you are a manufacturer of a control or 
measuring package that you believe could 
benefit from efficient software, write or call 
Ron Anderson. The fact that any calculation 
you can do with pencil and paper, can be done 
much better with a microcomputer. We will be 
happy to review your problem and offer a 
modern, state-of-the-art microcomputer 
solution. We can do the entire Job or work 
with your software or hardware engineers. 

Anderson Q^>uter Consultants & Associates 

3540 Sturbrldgo Court 

Ann Arbor, Ml 48105 
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our EPROM PROGRAMMER with the field. 

JU , l*ta t%fc» ii tr. « jy fro* mmmifTmrwr • arrant *^*rri»tog- Safl 

« TtkpU wolMrp OHM 
« *«V»l)«d *h kit tvrm 



A 


B 


C 


D 


E 


F 



INTELLIGENT 



PHQGH*MS 
3 TO** 
290 
2706* 
27S 
2516 

27ie 
27ie. 

2532 

2732 

2732A 

29B4 

27B4 

2928 

2712» 

281ft 

OB/64 

6746 

6749 



TOTAL 



*12* 



PAR 


PAR 


S€R 


S30 


SEA 


SER 


wo 


MO 


TES 


MO 


YES 


YES 


• 
• 
• 


• 

• 
• 
• 
• 
• 

• 
• 
• 

• 


• 

• 
• 
• 


• 
• 

• 
• 
• 

• 
• 
• 
• 


• 

• 
• 


• 
• 


9 


12 


* 


11 


11 


11 


143» 


*1«9 


1289 


*3T5 


$460 


*57S 



eFWM D«K* fft>jr<OT»r. M?S« PvrwjiMllty m*a« for 2S08. 275B. 2516. mmi 
2716 liir|.*l»l. Sf«c|Ty LlU. »ll«k »i*r. *»1 '-**C*ttnq «yii» <TSCT* KJEX or 
SSft « tigl »JV«t% .. r tetttvl ^tkwi Only, S10: refwrtfehU witl> £^*a pncf^ a 

UNfTEK - P.O. Box 671 - Emporia. VA 23847 
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K-BASJC 

tor OS9 * HMX 

X ELASK: is a cample BASIC coerce* poefcoge mcludino *>e com- 
piler rtseif the assembtei documentation, and sample progiams. it feo 
lv#es six atomic doto types including real nunben. strings. 6 bit. 16 bit. 
32 tut. c*»d 64 bit signed integers AH types may be efrT *y r gwuuU with 
one or two vt>K7f>f5 K BASIC convert* programs 1o MACHINE Ian 
guage code which mav be put into EPROMS or ROMS 

K BASIC syntax rj very close to TSC's BASIC and xBASlC Interpreters Line 
numfcers ore noi required (mav be up to 16 character) Vanoble 
names may be up to 12 cho/oclers long The AT statement dimensions 
vonables to absolute memory addresses 

fhe fuKje of K BASIC will see additional versions for the assorted inter 
pierefs currently avolloble This means you can compueyoi/ BASIC pro- 
grams you now hove 

Coil (503) 666*1097 tor our CATALOG, we hove many ott>er 
programs including . DO. ..$69 OSM.„$99 ED/ASM t .,$69 



CHASMS 

for OS9 A MX 

$399 

CRASMJ ts the htghry acclaimed Cross assemt*^ package for OS9 and 
FLEX systems and ks the only one of its rype ovoWOtte « turns your com- 
pute* Into a aevefc^yn^d station tor these CPUs 

6600 6601 6804 6605 6909 6811 6502 

7000 1602 6046 60&1 6080 806S Z60 

(680CD 16'32 bit Cross oasembfer $249) 



CRAS*« feo»ures rcfede Macros. Canarttanal assembly. Lfcxoy tHe 
cais (12 deep). Symbol tenyih to 30 cnarac<en. Symbol cross reference 
tat*». Object code *> 4 tomxXs (OS9. FLEX. S1-S9. NTR HEX), plus 
marry otner extended cfcectrves and optiors not found on other 



L 



ILOVD I/O 19535 Nf GilSAN. PORTLAND. OR 9723 USA 
Phone IS0JJ 666-1097 (Software Consultation Available) 

V75A MC. COO. CHfCK APf*OV€D PO.* ACCfPTFD 

England: Vlvoway (0562 423425). VrVlndiush (0692 405169) 

G^rmony lac her Computer (65 25 2991 

Australia Paris Radio Electronics (6! 2 344 9111 1 

OW*o*dl*cwomfUX<ia*otrSC 
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Disk- 
Disk* 
Disk- 
Disk- 10 
D1sk-ll 
D1sk-12 
D1sk-13 



68' MICRO JOURNAL 

Disk- 1 Fllesort. M1n1cat p Minicopy, 

M1n1fms, **Lifetime, **Poetry, 

**Food11st, **D1et. 
Disk- 2 Diskedit w/ 1nst.* fixes, 

Prime, *Prmod, **Snoopy, 

♦♦Football, **Hexpawn,**L1fet1me 
Disk- 3 Cbug09, Seel, Sec2, Find, 

Tab1e2, Intext, Disk-exp, 

♦Dlsksave. 
Disk- 4 Mailing Program, *F1nddat, 

♦Change, *Testd1sk. 
DISK- 5 *DISKFIX 1, *DISKFIX 2, 

♦♦LETTER, ♦♦LOVESIGN, ♦♦BLACKJAK, 

♦♦BOWLING. 
Disk- 6 ♦♦Purchase Order, Index (Disk 

file 1ndx) 
7 Linking Loader, Rload, Karkness 
Crtest, Lanpher (May 82) 
Datecopy, D1skfix9 (Aug 82) 
Home Accounting (July 82) 
Dissembler (June 84) 
Modem68 (May 84) 
♦In1tmf68, Testmf63, ♦Cleanup, 

♦Dskallgn, Help 
D1sk-14 ♦Inlt, nest, ^Terminal. # F1nd, 

♦Dlskedit, In1t.L1b 
Dlsk-lS Modem9 + Updates (Dec. 84 

Gilchrist) to Modem9 (April 84 

Commo) 
D1sk-16 Copy.Txt, Copy. Doc, Cat.Txt, 

Cat. Doc, Date.Txt 
MIL: 
This 1s a reader service 0MLY! No 
Warranty 1s offered or Implied, they are 
is received by '68* Micro Journal, and 
are for reader convenience ONLY (some 
MAY include fixes or patches). Also 6800 
and 6809 programs are mixed, as each 1s 
fairly simple (mostly) to convert to the 
other . 

PRICE: 8" Disk $29-95 - 5" Disk $24.95 

66 MICRO J0URMAL 

POB 794 
Hlxson, TN 37343 
615-842-4600 In Tenn. 
1-800-338 6800 In U.S. 

* Indicates 6800 

** Indicates BASIC SWTPC or TSC 

6809 no Indicator. 

MASTER CARD - VISA Accepted 
Foreign — add 10X for Surface 
or 201 for A1r! ! 
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THS-80 + MOO I, III, COCO. TI99/4a 
TIMEX 1000, OSBORNE, othen 

GOLD PLUG - 80 

Eliminate disk reboots and data loss due to oxi- 
dized contacts at the card edge connectors. 
GOLD PLUG 60 soklers to the board edge con- 
nector Use your existing cables, (if gold plated) 



£ 



GOLD PLUG 60 Mod I (6) 

Keyfcoard/EI (mod I) 
Individual connectors 
COCO Disk Module (2) 
Ground tab extensions 
Disk Drives (all RS.) 
Gold Disk Cable 2 Dnve 
Four Dnve Cable 
GOLD PLUG 60 Mod III (6) 
Internal 2 Drive Cable 
Mod til Expansion port 
USA shipping $1 45 
Foreign $7. 



,/- 



.<# 



$44.95 

15.95 

7.95 

16.95 
INCL 
1 .95 



SS4 9S 
10 .95 
■3 . 35- 



A 



29.95 
39.95 
54 95 
29.95 
10.95 
Can/Mex $4. 
TEXAS 5% TAX 






Aak your favorite dealer or order direct 

E.A.P. CO. 

PO.BOX 14 
mm toow KELLER, TEXAS 76246 
(817)498-4242 MC/VISA 

♦ trademark Tandy Corp 




U»e» t*e new TMS9918A Vitfao D*a- 
pjay procesor H^gh resolution 2*6 * 
192 P*iei display with 15 colors t6K 
Byles ot onboard RAM Ooe% noi reduce 
user memory 32 QraDhtc imafle* can 
be individual moved wiih sample X v 
commands lor smooih emmalton 
txlernal Video inpul eltowa subtrtung 
NTSC compose video ouipul 
SOUND EffECTS AND MUSIC 

• Three AY3 B910 Programmable 
Sound Generators 

• Nine simultaneous voices 

• Three mdepen nl noi e sources 

• Onooard siereo ampiiNer dr«vea Iwo 
6 ohm %p*ahet 

ADDlTiQMALJ/Q CAPABlLlTieS 

• Eighi analog inputs »<lh 8 Oil reso- 
lution 

• Supports four joysticks with pushbut- 
ton switches 

• E*ghi bii parallel I/O pen 

• Enhre umi maps into 256 byles o'< 
memory 



TERMINUS DESIGN INC Sfl conjunc 
tion with Micrcnfrare Systems. Corpora- 
tion, it proud lo announce F BASIC an 
enhancement ol Micro*ar* s 6800/ 
BASIC Their fast compiled BASIC has 
b«n aoapied lo* &809 user&*rfh added 
kidec and sound ■ealure&for ARCADE 
SO users F BASIC is a I me compiler 
that produces op! inured machine lan 
guage modules which are ROMabie and 
require no Run Ttme package FBASiC 
requires less memory overhead and 
mns hundreds ol times lister lhan 
BASIC ifiterpreiers it supports si an 
dard BASIC instruction including 
Smng functions Disk \i O and last integer 
arithmetic with multiple* precision capa- 
bility Qt ap rue s we r bs a nd tunc 1 ions fully 
suppori 1 he Arcade 50 



ARCADE 50 as mbied and lasted 

Video and Audio conn ctor set 

a Joystick conneclor set 

2 Radio Shack Joysticks 

Gold Mole* connectors 

AJBASIC tor 6600 

FBASIC tor 6809 

FBASIC iwilh ARCADE SO) 

AftCADE 50 RGB 

LABVlDEOiMotorolaCxORbirsf 

NEW MV09 6809 Processor Boa. a 

256 K Dynamic Memory Board 

256K Dynamic Memory Board iw/64Ki 

64K Oynamic Memory Board 



$325 00 

t500 

1500 

24 00 

12 00 

tlOOO 

ltOOO 

7500 

37500 

37500 

22500 

795 00 

395 00 

295 00 



II MM- , U.| Htl V|| 



TERMINUS DESIGN INC 
16 SCARBROUCH ROAD 
ELLEN WOOD, CA 30049 

(404) 474^4866 



TW 





Git in 
Touch 
wtlh 



■ tietieiiii 

a iiiniiiit 
a aaeaaeiaaa 



OS0»*a 



An IVRULSigant ©TOmunications Program 



Eosy Instollotion 

Menu Driven 

Intelligent computer to computer communicotions 

Supports most file transfer protocols 

Transfers CPM files to your system (Christensen Protocol) 

Access to timesharing services (Source, CompuServe) 

Available for OS/9 ond Flex 

Price: S 99.95 



Zm jfiafinciu mm f # c i«« W3i 4 r c<*^ m t^ 



P. BOX 916 

Idaho Foils. I do ho 63403 

(208) 529-3210 

Fin n a trademark of TSC, tnc 




The 
World of 



illllllMII 
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COMPUTER 



• Y ■ T ■ rVI ■ ll-BOC 
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MODOLta - BARE CARDS • KITS - ASSEMBLED i TESTED 
Smcfctbi* Module* KIT AtT 

20 tap POtBB SOPPLT w/f-m 

v/Dlek protect relay 350.00 400.00 
DISE CABINET */refe. t ciblee 

leee DRIVES 200.00 250.00 

MOTHER BOARD, 6 SS~50c. 6 S3-30e 

NMI button 225.00 325.00 

Itn B»re KIT AAT 

IT3 - IHTHttUPT TIMER 

1. 10, 100 per eec. 19.95 29.95 39.05 
PB4 - INTELLIGENT PORT QDfFSB 

Single boerd cooput.39.95 114.95 139.95 
OPIA - Dual PXA parallel port , 

4 buffered I/O* 24.95 69.95 89.95 

XAOB - Extended Addreeeleg 

BADO geo. PI A port 29.95 69.95 89.95 
MB6 - MOTHER BOARD 3S~50c 

v/BAOD geg. 64.95 149.95 199.95 

P166 - 188* PROM DISE 

21, 2764 EPROUfl 39.95 79.95 109.95 

fD68 - Fl rewire developaeot 

2, *K block* 39.96 64.95 114.95 
XKPR - 2764 PROM burner ..dipt. 

for 2716 BURNER 19.95 

CRERRT Keyboard v/C«bla«t 

96 key cip&eltlve 249.95 

TaXAN 12". 16 Kb* MONITOR GREEN - 149.95 

AMBER - 159.95 

4 MODULE CABINET - uaflBlabed 150.00 

POVER 3UPPLT v/dlek prote t 250.00 

Color Computer 

BOROLIMt - 30 Kb* Noooebroaa 

video drlaar IS. 00 20.00 

CC30 PORT BOS w/pow«r supply 

5 33-30, 2 Cart 189.95 199.95 

POTOR BOX 8 asltcbad outlets 

trualaat suppression 29.95 39.95 

BS -232 3... Itched ports 

for sboae A0O .30.00 .25.00 



Write tor FREE Catalog 

ADO SJ.OO St" PER ORDER 
Wl*., ADD J SALES TA« 



11931 W. Blue mound Road 
MILWAUKEE. WIS. 53226 
(414)257- 0300 
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PT69 SINGLE BOARD COMPUTER SYSTEM 
OS-9 NOW AVAILABLE 




The proven PT69 Single Board Computer now features OS* 
9 capability Powerful performance, reliability. ♦ OS-9 — 
UNBEATABLE* The PT69 is a complete system m a compact 
package 

• 1 MHZ 6B09E Processor 

• 2 RS232 Seoal Ports (6850) 

• 2 8-Bit Parallel Ports (6821) 

• 56K RAM 4K EPROM 

• Time-or-Day Clock (MC146B1B) 



Pictured 
System with Drives/System without Drives 



COMPLETE SYSTEM with PT69 Board. 2 

DS/OD 5V 40 Track Drives, Cabinet, and 

Power Supply 

PT 69 Board. Assembled and Tested, with 

Power Supply ♦ Cabinet 

PT69. Assembled and Tested Board 

Parallel Printer interface with cables 
' OS-9 L1. includes edit. asm. ♦ debug 
' STAR-DOS Level 1 {Compatible with Flex) 



S99995 



S399 95 

5299 95 
$ 49 95 
S250 00 
$ 75 00 



PERIPHERAL TECHNOLOGY 

"Supplying Your Computer Needs Since 1978" 

3670 Lower Roswell Road 

Marietta, Georgia 30067 

VISA/MASTERCARD/CHECK/COD 404/973-0042 

'"OS-9.1 a trademark ol MiCrowar* and MOlOJCXa 
tw FLEx n a trade***** of Technical SVtteme Consultants 



XDMS 

Data Management System 



{ DISPLAY ] / INPUT fc^ UTILITIES ^Of OUTPUT / 
ENTRY F 
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( PAGING £*- Si VIRTUAL /- •* 
^ Fill h*~*jMEWmVf-*- 
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System Architecture 




WEBXCKEBTE 



R AppllBd Buain»a« Syit) 

Poat OfFtci 6b e igl 
PiAPtriM Ninar, Jt.Y. lCSIO 



T»if XDM» 0t»4 H*n«gr«lAt 5v*ie*i it ivailabla in three le**l»+ EacA 
Ip*»I imlud** lha XDNS rmclaui. VK&EM wilihty and Syitam Pcxwn en t a 1 1 00 
*Ot Leva} )1|. IPHS it on* 0* (n* *ok po^tMu) tytte** aviilibl* frjr 
*pfl» co<*jut*J r a end rfir *• u»»a 'or * wida vanely a' application!- XDnS 
u*(r'* era r*giitrrtd m Our d at at aw la permit di*l» iDut iOn of privet 
«n nou rw am eM * md velidaUcm eH uM' upgrade* md niiiAtfnin(« 'tquifli. 

APWfl Ltvtt I 

HDM« Ltval ] tOMUl. o4 GET I XI. UPDATE and REPORT Ucilitlt*. 
Thi* |«val |* blended *% 4fi "en|#-y lavci* ayatamj and permit* OAtfy And 
'•pari kf»g of d*t« an e 'Mbnlir* ba»ia, Tha REPORT facility tuoportt 
record end Field lalactinn. field mtrQe* sorting, bm calculat lorn*, r 
column total* end reporr titling. Control t* vie e Engiitfi-liti language 
-hirh It upward tnn>pat»bl« with level 11* XDMS Laval I t)2t.«9 

XDMS Leevaal II 

Level II *dd« to Lavel 1 )m powerful GEKEftATE facility. Thi* facility 
can be (nought of i» a general File ptocaator which can produce report*, 
form* «ne farm letle't at well a* 'Ha output which may t>a r*-wipul to 
lha facility. OEUEKATC may tve u*«d »n complex procaaaing application* 
and i* controlled Or • Englit>-Wke command langoaga which encoApaatet 
tKat u*ad by Level I. XDNI Lavel M > tlee.99 

XPM8 L»Y>1 III 

Laval III mUvdet all o' level II plo* a aei of ute'ul OKS Vtililla*. 
trieaa utllMta* are dati.riad to aid »n lha davatopa>anl and mainl eriaaC* 
of uaer application* end Per*it modi'rcalton of XDMS ayatee* paTauoatarai 
input 4n« output of XDMS 'ilea, diaplay and moei**c*r»on at Fua rerraal, 
graphic display of numrtcil d«t* end ath* r <un(liom, Laval III t> 

Intended for advaarad XDMS Ui*ra. XDMS Ldve) Itl v2et.eS 

XDMS By • tar. Documentation only <t|0. credit towa'd pu^CKaaek . ♦ 74. tS 

XACCJ ALLUuntino Bvttem 

Tna lACC General Accounting Syataai it eetigned for ta>all butinan 
eftvirO»e>a>»t» of up to 10*000 eccount* and invanlory iteatti The ayaie** 
integretat eccountmg <w«tttoria and invantory plvt the (infril laagar. 
account* receivable and payable functtont normally aold aaparalaly in 
Other lyitfnii Fii|«/rii wter deftried account*, a redact a ia/ aarviratt* 
trentectioni*. invatCing. etc. Lttily cOnfigvrtd to a*0*t fUrirOnntntt. 
XACC General Accounting Syatem tRe«utrat XDMS, prat. Lv. Ill I. . tJte.aS 
XACC Syatem DoiuMentatlon only <«10. credit toward purctiate? . t 74.05 



WB6TCKE8TER Applied Buainaa* Byat»me 
Peat OMici lot 1*7. IriercltM Manor, H.t. 10910 

AH software if vrlttdjti In eaacro/os*»eBt)lar and run* vneter 6009 fLEX. 0/S. 
T#>rai*: Chock, Honw 0rflec r VI ia or Mai far charge. Shlpawnt ffr*t c)e*$. 
Add PaH t?.SQ U? AC Toralgn). NY t?*i add solas tax. Specify 3* or 8*. 

Soles: S. Cv MEDIA, I-SMS538-6800. Con %u I tat Ion: 9M*94iO»2 (event). 

TL€X If a traoemar* of Technical Svttaais Consultants, lr- 



68' Micro Journal 



71 



GINIX STATE OF THE ART 6809 SYSTEMS TOR THE SERIOUS USER. 




GIMIX has 19MB or high performance 
47MB Winchester Drive Systems and/or 
Floppy Disk Drive Systems, 



For the ultimate in performance, the Unique GMX 6809 CPUIH, 
using either OS-9-GMXm or UruFLEX GMXID (available shortly), 
gives protection to the system and other users from crashes 
caused by defective user programs, e.g. Dunng program 
development, a programmer who crashes goes back to the 
shell or the debugged while the other useis are not even 
aware anything occurred. 



The intelligent sehal I/O processor boards signifi- 
cantly reduce system overhead by handling rou- 
tine I/O func- 
tions, there- 
by freeing up 
the host CPU for 
running user 
programs. This 
speeds up system per- 
formance and allows 
multiple terminals to be 
used at 19.2FC baud. 




ss 



BASIG-09 and OS-9 art trademarks of Micc**a/« Systems CofR and MOTOROLA foe 
FLEX and UmFLEX ira Vtttoroto d fcdwkal Sys!en« Gattutert*, Inc 
GJMIX. GHOST GMX. CUSSY CHASSIS, are trafcnifla Of GIMIX. Inc 



Gimix 



inc. 




For the user who appreciates the need for a 
bus structured system using STATIC RAM 
and powered by a feiro resonant constant 
voltage transformer 

GEMDC has single user systems that can run 
both FLEX and OS- 9 or Multi user systems for 
use with UruFLEX or OS-9. 

GEMDC versions of OS9 and UruFLEX in- 
clude maintenance and support by Micro- 
ware (90 days) and TSC (1 year). Mainte- 
nance and support after this penod 
are available at extra 
cost 

{NOTE: this support and 
maintenance is only 
for use with approved 
GEMDC hardware) 



/ GIMIX 6809 systems 
/ support Eve predominant 
W operating systems 

OS-9 GMX HI, 

OS-9 GMX II, 

UnlFLEX, 

OS-9 GMX I, 

FLEX 

and a wide variety oi languages 
and development software 

Whatever your application software 
development, instrumentation, process 
control educational, scientific or business, 
whether you need single or multi-user 
capabilities, GIMIX has hardware and the 
operating systems to get the job done 
reliably 

Please phone or write if you need further information 
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For Ord*rlng CaM TQU FREE 

1-800-338-6800 



FROM - DATA-COMP, C.P.I. 



A Family of 100% 68XX Support Facilities 
The Folks who FIRST Pu! FLEX 1 - on 

The CoCo 

Now Offering: *FLEX ,V (2 Versions) 

AND 'STAR-DOS PLUS+ 1v 




STAR DOS PLUS + 

• Functions Same as FLEX 

• Reads - writes FLEX Disks 

• Run FLEX Progiams 

• Just type: Run 'STAR-DOS" 
Over 300 utilities & programs 

to choose from. 



[ 



TSC Editor 

RcqSSO.OO 

NOW $35.00 



^ 



PLUS 

ALL VERSIONS OF FLEX & STAR-DOS 

+ Read-Write-Dir RS Disk 

+ Run RS Basic from Both 

+ More Free Utilities 

+ Super 800 Support 

+ Free Color Micro Journal 1 yx. sub. 




INCLUDE 

+ External Teiminal Program 
+ Test Disk Program 
+ Disk Examine & Repair Program 
+ Memoiy Examine Program 
+ Many Many More!!! 



TSC Assembler 

EtesSSOOO 

NOW $35.00 



DISK SYSTEMS FOR *>* COLOR CD»*VTER 

THESE PACKAGES INCLUDE DRIVE, ♦CONTROLLER, 
POkffR SUPPLY «, CABINET, CABLE, AN0 MANUAL. 

■ SPECIFY WHAT CONTROLLER YOU WANT JIM. OR RACK) SHACK. 



PAX #1 - 1 SINGLE SIDED, DOUBLE DENSITY SYS. 
PA* 97 - 7 SINGLE SIDED, 0Ot«LE DENSITY SYS. 
PAK #3 - I DOUBLE SIDED, DOUBLE DENSITY SYS. 
PAK 9* - 7 00/ft.E SIDED, DOUBLE DENSITY SYS. 
PAK #5 - ? tOUBLE SIDED, DOUBLE DENSITY SYS. 
TMINLINE DRIVES, HALF SIZE 

COLOR COMPUTER I I 64K */EXT. BASIC 



CONTROLLERS 



J&M DISK CONTROLLER W/ JD0S OR R*D 10 SHACK 
DISK BASIC. SPECIFY WHAT DISK fcASIC 



RADIO SHACK OISK CONTROLLER 1.1 



DISK flRIVE CARES 



CABLE FOR ONE DRIVE 
CABLE FOR TWO DRIVES 



USA ADD 2% SHIPPING 
FOREIGN ADD 5% SHIPPING 



$399. 95 
$639.95 

$«>9.95 
1699. 95 

1659.99 



iiM.95 



I 19*95 
t 24.95 



64K UPWAOE H/NOO. INSTRUCTIONS, 






C.D.E.E, AWO COCO 2 




\ 49.95 


HJL KEYBOARDS 




$ 69.95 


MICRO TECH LONER CASE PC* ADAPTER 




S 74.95 


RADIO SHACK BASIC I -2 




* 29.95 


RADIO SHACK DISK BASIC 1.1 




S 79.95 


RADIO SHACK EXT. BASIC 




S 39,95 


SCREEN CLEAN CLEARS UP VIDEO DISTORTION 


I 39.95 


MEHORE* DISKS 5" SS,0D 




i 24.00 


SHIPPING INCLUDED ON DISK PRICES 






DtSK DRIVE CABINET & POMER SUPPLY 




$ 49.95 


SINGLE SIDED, DOUBLE DENSITY 5" DISK 


DRIVE 


S199.95 


D0U6LF SIDED, OOUBLE DENSITY 5" DISK 


DRIVE 


$249.95 


PRINTERS 






EPSON RX-90 




1325.00 


EPSON RX-BOFT 




1373.00 


EPSON MX-lOO 




$650,00 


EPSON FX-100 




S799.00 


EPSON FX-BO 




S549-D0 


EPSON MX- 70 




J2O0.00 


5CTIAL BOARDS FOR PRINTERS 






NX-SERIES 




I1iq.9«S 


FX-SERIES 




S 99,95 



SPECIAL MXIOO $550.00 



•FLEX it » Tradvwdrk d Technical Sykivm Conjuton* 
•STAR *OS* i* a Trademaik o< ST Ail Km & Data Comp 
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/ I megabyte duet processor HELIX " system 

wlto 20 Megabyte Winchester and floppy disk drives. 



ONCE AGAIN HAZELWOOD COMPUTER SYS JEMS 
demonstrates Its leadership In computer technology by 
delivering the only computer system capable of switching 
between either the 6809 or the 69000 processor. 
Switching Is easily accomplished by a simple front panel 
toggle switch. The reason we can offer this exclusive 
feature now, Is that when our proven 6809 processor 
board was designed several yeais ago, we had the 
foresight to include the bus controls that allow 
processor switching. 

HasBtwood Computer Systems is also proud to be the first 
S-50/S64 bus manufacturer to license and deliver the 
0S9/6SK Operating System from Microware Systems 
Corporation. 0S9/68K Is the 69000 version of the populer 
and powerful 0S9 Opetatlng System. Utilizing our proven 
MC-20 disk controller, 0S9/68K can conveniently share a 
Winchester disk with 0S9. Changing from 6809 to 69000 
operation is as simple as switching processors and 
booting the new system from the Winchester disk. 

The ease of switching processors end operating systems 
makes a HEUX m dual processor system the natural 
choice for software development. In eddltion, the 
advanced design of NEUX* equipment, emphasizing 
performance and reliability, makes HELIX 7 * boards and 
systems the best value In computing offered anywhere. 

System prices vary with contiguretfon, Celt for exact pricing. 



THE SWITCH IS ON. . . 




\ ORDER: CP-08 4 lmi wrtf » ((s 

mn rv sfiacf wny9 s (ft 



QSUm ****** 






0S9/68K 



. ..kitt^i la 



$250 



HAZELWOOD COMPUTER SYSTEMS 

907 East Terra, O f Fallon, MO 63366, 314-281-1055 

059 *na OSSi'SflK n« ragtifurwi ir*d#miric* or rraruwara System* Corp HELIX tf ■ Tndemart: of Kazofwoad Computer Sytftmi 
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